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Preface 



Graphics are one of the most interesting applica- 
tions of microcomputers. Video games are one very 
obvious example. Graphics do more than just en- 
able us to play games. Graphics allow us to design 
and test models without actually building anything. 
The versatility of the computer allows us to create 
simulations that reflect the performance of trie ac- 
tual model. 

But what are graphics and what is the scope of 
this book? Graphics, in its broadest sense, is the 
representation of data in a visual form rather than in 
a numerical or written form. Graphics include ev- 
erything from graphs to pictures to abstract art. 
You name it; if it's visual, it's graphic. Specifically 
this book covers graphics that are written in Mi- 
crosoft BASIC primarily for use on microcomput- 
ers. The programs in this book do not purport to 
cover all areas of graphics but they give a cross 
section of some of the applications available to the 
microcomputer user and programmer. They in- 
clude bar graphs, two-dimensional graphs, art, 
three-dimensional graphics, and others. All of the 



programs that appear in the book were actually run 
on a microcomputer, and all the figures were 
printed by a dot matrix printer. 

Who can use this book? This book and its pro- 
grams are self-explanatory. For example, we dis- 
cuss several techniques for making three-dimen- 
sional figures before the relevant programs are 
presented. This book could be used in a classroom 
situation or as supplementary reading because it is 
designed to be an educational tool. It can be used by 
the designer who wishes to see what a product will 
look like without actually building it. Some of the 
programs might be used or be of interest to ar- 
chitects. Whoever uses the programs should have a 
working knowledge of BASIC. 

The programs, which are written in Microsoft 
BASIC, may be used with slight changes on any 
given microcomputer that uses a Microsoft BASIC 
interpreter for its operating system. They are the 
best programs in BASIC for their specific applica- 
tion; they do not use functions that are peculiar to a 
particular manufacturer's version of BASIC. In 



short, they are written in the BASIC used by most would like to thank TAB BOOKS for their generous 

microcomputers today. help and support in getting this book print. 

It is my hope and intention that these programs This book is dedicated to anyone who will take 

will help you as a programmer and user to utilize a simple idea to its furthest limit: may you find the 

your computer and your talents to their fullest. I significance of doing it. 



Chapter 1 




Introduction to Graphics 



Personal computers are capable of many functions: 
they can control home appliances, synthesize 
music, listen, talk, calculate biorhythms, compute 
complicated algorithms, and they can display 
graphics. Graphics are one of the most fascinating 
applications of computers because the output is in a 
form that is easily recognizable by everyone; it's 
visual. Since human beings are sight-oriented crea- 
tures, it makes perfect sense to display computer 
output in a visual form. 

GRAPHICS: THE VISUAL MEDIUM 

An old adage says, "a picture is worth a 
thousand words." This comment is still true today. 
Computers can be used to draw not only pictures 
but all kinds of graphs and plots as well as animated 
figures. This ability makes them invaluable as a 
graphic tool. 

Generally speaking, anything visual can be in- 
cluded in the category of graphics. We can think of 
graphics as an intelligent arrangement of points. 
These points can simply be black and white dots or 



a spectrum of colored dots. Collectively they com- 
prise a graphic image. Because computers can re- 
produce and generate a series of points, they lend 
themselves readily to graphics. Since computers 
can manipulate these points, they are also useful for 
animated graphics. 

Advantages of Pictures 

Why are pictures so useful? Because ev- 
eryone, even the smallest child, knows what a pic- 
ture represents. A picture is a realistic representa- 
tion of a collection of objects. We quite naturally 
relate to pictures. 

Pictures can be simple diagrams or figures or 
they can be complex images. They can be realistic 
or they can be abstract. They can also be imaginary. 
Whatever their nature, they convey an almost in- 
stantaneous meaning. 

Using Computers for Graphics 

What kinds of images can computers create? 



The answer lies with the sophistication of the com- 
puter system and the imagination of the program- 
mer. Practically speaking, the images run the 
gamut from simple black-and-white still figures to 
animated scenes in full color. As one increases in 
graphic sophistication, larger computers are re- 
quired. 

Personal computers of modest size are capable 
of some rather interesting graphics. Almost every 
computer can draw a graph of some land. Most are 
able to display the graphics necessary for a visual 
game, given the proper programming. Computers 
with sound and color can augment the realism of the 
visual display. An imaginary world in microcosm 
can be created within the memory of the personal 
computer. Again, the kinds of applications depend 
on the capability of the computer system and the 
imagination and talent of the programmer. 

MATHEMATICAL DEFINITIONS USED IN GRAPHICS 

All computers process numerical data. The job 
of the programmer is to write an algorithm in a 
language mat ine computer can interpret ano to use 
that algorithm to transform numerical data into vis- 
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ing of mathematics is required. 

Points, Lines, Curves, Planes 

All images are made of points. Sometimes it's 
more convenient to think in terms of the individual 
points themselves, as in an X-Y plot. For comput- 
ers, a point is the smallest dot that the computer 
can display on the video display screen. The posi- 
tion of that point relative to other points would give 
that, point its meaning. On some systems a point 
would be a tiny rectangle illuminated on the screen. 

ter with a dot lit (on a visual screen) or printed (on 
paper). Still others might simply use a period, plus 
sign, or lowercase "o" to designate a point on a 
graph (see Fig. 1-1). 

Lines are simply a linear arrangement of 
points. Lines can be vertical or horizontal, or at any 
angle in between. They are drawn by placing ap- 
propriate graphic characters at specific print posi- 
tions on a screen or paper (see Fig. 1-1). The 



computer program would control what character to 
print and where it should be placed. 

Curves are lines with variable linearity. 
Curves, like lines, are computed and plotted by 
software. To draw a circle, for instance, the com- 
puter would plot all points a given distance from a 
specific coordinate. 

Planes are all points within a specified bound- 
ary. The boundary might be intersecting lines or 
curves. A plane might be drawn as all the points 
within a given distance from a specific coordinate 
on the surface. 

Graphs and Plots 

Graphs and plots are very similar. We can 
think of plots as figures containing a set of points, as 
on an X-Y plot. Graphs could include figures like the 
bar graph (histogram), where rectangles are 
positioned along an axis. The difference is trivial. 

Plots can have more than two axis, i.e. , more 
than two dimensions. The third dimension might be 
at a given angle relative to the other axes. This 
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make the image more realistic. 

Pictures 

Mathematical pictures can be made by posi- 
tioning figures defined mathematically on the video 
display. A simple example might be a game board, 
such as a chessboard or a backgammon board. As 
the game is played, pieces are moved on or re- 
moved from the board. Animated graphic figures 
are another case, however. Generally the more 
advanced the graphics, the more heavily you must 
rely on the computer for generating the pictures. 

TYPES OF COMPUTER GRAPHICS 

Let's now turn our attention to some types of 
graphics. There are artistic works created by pro- 
grammers as a form of self-expression. There are 
realistic graphics, which attempt to depict the 
world as we see it and there are abstract graphics, 
which are exaggerations of reality. There are 
noninteractive graphics, which we cannot adjust or 
change, and there are interactive graphics, which 
we can change. 
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Fig. 1-1. Some examples of computer graphics. 



Artistic Creations 

Computers are a natural medium for video art. 
Very elaborate images can be synthesized, stored, 
modified and otherwise manipulated by computer. 
Color computers can be used to make aesthetically 
pleasing pictures. Some are so realistic that they 
can be mistaken for photographs. 

There are all kinds of video art. There are still 
works and animated works, realistic and abstract 
art, and hand-made and computer-generated crea- 



tions. The kind of art that the programmer-artist 
makes depends on what he wishes to convey. 

Realistic Graphics— Simulations of Reality 

Computer images of real objects such as build- 
ings are realistic graphics. Sometimes only particu- 
lar aspects of the real object might be displayed. 
Even in these cases, if the picture is an accurate 
representation of reality, it is an example of realis- 
tic graphics. Realistic graphics attempt to look like 




Fig. 1-2. Abstract graphics, orbiting objects. 



the objects that they represent. Figure 1-1 also 
shows realistic playing cards, for example. 

Abstract Graphics— Exaggerations of Reality 

Abstract graphics are another story. Like 
abstract art, they are distortions of the real world, 
altered so as to highlight some feature, perhaps. 
Figure 1-2 shows five sets of points which form 
concentric rings about a cross at the center. This 
image might represent orbiting objects. Figure 1-3, 
which looks like moire patterns, is even more 
abstract. Abstract images can be made from realis- 
tic images by using programming that modifies 
some feature of the realistic object. 

Noninteractive Graphics 

When a programmer is behind a keyboard con- 
sole, he can sometimes change what he sees instan- 
taneously and sometimes he can not. If he can't 



readily change the display, he is using noninterac- 
tive graphics. Digitized portraits of someone and 
the figures that we have seen already are examples 
of noninteractive graphics. 

Interactive Graphics— Controlling What You See 

Interactive graphics are far more interesting 
than the noninteractive variety, because you are 
actively involved with what is happening on the 
display screen. Any video game player can tell you 
that. Games are not the only application of interac- 
tive graphics. You can use your computer as a 
sketchpad with the proper programming. By typing 
certain keys you can draw lines, add color (with 
color computers), or shade areas. This is called 
"painting". There are any number of possibilities 
with interactive computer graphics. The limits are 
determined only by your imagination and your will- 
ingness to pursue an idea to its logical conclusion. 



Chapter 2 




wo-Dimensional Graphing 



One of die easiest ways to represent numbers visu- 
ally is to construct a graph or plot. On a graph, like a 
bar graph, a number is equivalent to a length of a 
line. On a plot a number is a point with a particular 
position. Since these figures are drawn on a flat 
surface with axes that are perpendicular, we call 
them two dimensional graphs. 

HISTOGRAMS: PLOTTING 

AN ORDERED SET OF NUMBERS 

Let's say that a realtor wanted to compare 
the number of houses that he sold each month over 
12 months. First he would obtain the number sold 
each month, starting with the first month and going 
through the last month. He would then have an 
ordered set of numbers. To compare these num- 
bers to themselves, he might construct a bar graph 
or histogram. Then he would have a visual idea of 
how each month compared. 

The histogram is a graph that has bars running 
either vertically or horizontally along some axis. 
Each line represents some number or element in a 



set of numbers. Usually there is a scale present. 
The bars might be narrow if there are many num- 
bers or wide if there are few numbers. The bars 
may be colored to provide contrast. Bar graphs are 
generally titled to provide explanations. They may 
or may not start at zero. 

Histograms are used to show comparisons. 
Our realtor, in the example, might notice trends if 
he made a histogram for each of several years. He 
might notice that not only do houses sell poorly 
during the winter months, but when compared to 
prior years, the number of houses sold decreased. 
The histogram helps him by making a basis for 
comparison and providing a visual image of his 
sales. He might then alter his business practices. 

Let's jump right into an example of a BASIC 
program that makes a histogram. We will look at 
two similar histogram programs and then at a pro- 
gram that produces a two dimensional plot of points. 

Figure 2-1 shows a histogram using the upper- 
case H as the graphic character. Twelve numbers 
that have values ranging from three to eight are 
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Fig. 2-1. Histogram using the uppercase H. 

plotted. Each bar is three characters wide and there 
is a space between the bars. The bars are propor- 
tional to the values of each number above the value • 



of three. Alternately, we could have had zero as the 
lower limit on the Y axis. The listing for this prog- 
ram follows. 



10 REM 




2@ REM 




38 REM 




40 GOSUB 


200 s REM 


PIjt-j iiricti its 


300; REM 


60 GOSUB 


400 s REM 


70 END 




108 REM 




11© DATA 


12: REM 


120 DATA 


5 ? 6 ? 3 


138 REM 





HISTOQKAM GRAhHING HROGRAM 
WRi I I en bv i inuinr •-■ * •-" nni_i_c r 

DATA READING SUBROUTINE 
DATA SORTING SUBROUTINE 
HISTOGRAM PRINTING SUBROUTINE 

DATA FOR HISTOGRAM 

THIS IS N, THE NUMBER OF ELEMENTS IN SET 
> 4? 3 .•• 7? 3? 4? 7? 4? 5? 6 

LINE 120 IS THE ORDERED SET OF H ELEMENTS 



200 

210 
220 
230 
240 
250 
260 

300 

310 
320 
330 
340 
350 
360 
370 

400 

410 
420 
430 
440 
450 
460 
470 
488 
490 

500 

5 1 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 
620 
630 
READ 



REM DATA READING SUBROUTINE 

READ NsREM THIS IS THE NUMBER OF ELEMENTS IN SET 

DIM X<N>:REM ALLOCATE SPACE IN MEMORV FOR SET X 

FOR ,T=1 TO NsREM LINES 239-258 READ DATA INTO SET 

READ XCJ> 

NEXT J 

RETURN 

REM 

MIH=X<1> 

MAX=X < 1 > 

FOR -T=l 



DATA SORTING SUBROUTINE 
« REM ASSIGN ARBITRARY MINIMUM 
SREM ASSIGN ARBITRARY 
TO N:REM LINES 338-360 



UALUE 
MAXIM I M UALUE 
FIND REAL MIN 



OF SET 

OF SET 

AND MAX 



IF 

IF 

NEXT J 

RETURN 

REM 

WID=64 

HGT=30 

C*="H" 

PRINT 



XCJXMIH 
X<-J>>MAX 



THEN 
THEN 



MIN=X';.J> 
M AX--X < J > 



HISTOGRAM PRINTING SUBROUTINE 

REM MAXIMUM WIDTH OF HISTOGRAM 

REM MAXIMUM HEIGHT OF HISTOGRAM 
sREM GRAPHIC CHARACTER TO BE USED 
CHR*<12>5 sREM CLEARS UIDEO SCREEN 
S=8sREM ALLOW SPACE FOR ORDINATE SCALE 
IF N><tJID-S> THEN PRINT "TOO MANY NUMBERS" s RETURN 
L=INT<<WID-S>^<N+1>>:REM ASSIGN WIDTH TO BARS IN GRAPH 
SP= I NT < LOG < M AX-M I N > > * < M AX-M I N > ."N ' REM ORD I NATE I NCREMEHT 
IF '::MAX-MIN>.-SP*2<<HGT-4::' THEN SF-SP-2S GOTO 498 
FOR K=MAX TO MIN-SP STEP -SP 
FOR .1=1 TO N 

IF J=l THEN PRINT KssREM PRINT ORDINATE UALUE 
PRINT TABOJ*L+S>; s REM TAB TO EACH BAR IN GRAPH 
IF XCJ ::•>=!< THEN FOR M=l TO L-ls PRINT C*?sNEXT II 
NEXT J 
PRINT 
NEXT K 
PRINT 

IF L<=2 THEN RETURNS REM TOO MANY ELEMENTS TO PRINT SCALE 
FOR J=l TO NsREM LINES 688-628 PRINT ABSCISSA SCALE 
PR I NT TAB < J*L+S+SQN < < L-3 > '2 > + < L-3 > ^2 > " J 5 
NEXT J 
RETURN 



Let's look at the program line by line. Lines 
10-30 are remark statements stating the nature and 
author of the program. Remarks are useful to help 
identify programs and explain lines. Use them 
when writing your own programs. Line 40 goes to a 



subroutine that reads data. Line 50 directs the com- 
puter to a subroutine that sorts the data and finds 
the maximum and minimum values of the data en- 
tered. This is used to compute an appropriate scale. 
Line 60 prints out the histogram using the sub- 



routine that starts at line 400. Line 70 ends the 
program. 

Line 100 is a remark statement used as a 
header for lines 100-130. Line 110 has a data state- 
ment and then a remark statement explaining it. It 
says that there are 12 elements in the ordered set 
that the computer will read to make the histogram. 
Line 120 is the data statement with the 12 values 
that we will use. Line 130 is a remark statement 
describing line 120. 

Line 200 is a remark statement heading the 
subroutine that actually reads the data contained in 
lines 100-130. Line 210 is a read statement and a 
remark statement. It reads the first value that it 
finds in the first data statement that it can find in the 
program. That data statement is in line 110. It 
assigns that value to the variable named N. Notice 
that a colon separates two statements that are on 
the same line and that the remark statement is last. 
Reason? The computer ignores anything after a 
remark on a line. Line 220 is a dimension statement 
that allocates space in memory for the twelve val- 
ues that we want to graph. Specifically it creates a 
vector (a linear array) called X consisting of N 
elements. The remark statement on the same line 
explains this. Lines 230-250 contain a "loop" that 
reads the twelve values from available and unused 
data statements. It creates a variable called J to be 
used as a counter. J is originally set at 1 and will 
count up to N, which is 12. Line 240 is a read 
statement thatplaces a 5 (from line 120) into the set 
X at the J (initially the first) position. Line 250 is a 
next statement and seeks to increment the variable 
J. If J has increased to the value N, it will direct the 
computer to go on to the next line, line 260. At this 
point J has the value, 1, so the computer will direct 
control to the first line number after the for state- 
ment, line 240, to read more data. J will have been 
increased to 2 before line 240 is executed, however. 
Line 240 then enters the value 6 into the second 
position of set X. This process continues until J is 
equal to N, when the return statement in line 260 
directs control back to line 50, the subroutine being 
completed. 

Line 50 calls the subroutine starting at line 
300, which sorts the data entered in set X. Lines 



300 is a remark statement describing lines 300-370. 
Line 310 assigns the first value in set X to a variable 
called MN. We will use this value as a basis of 
comparison when finding the lowest number in the 
set. Line 320 assigns the first value in set X to a 
variable called MAX. MAX is a value that will hold 
the largest number of set X. Lines 330-360 are 
another loop. We will use the same variable, J, for a 
counter. This loop finds the true maximum and 
minimum values in set X. Line 340 contains an if 
statement that says if the Jth element in set X is less 
than the value of MIN, assign that value to MN. 
MIN is now equal to the value of X(J). Line 350 says 
if the Jth value of set X is greater than the value of 
MAX, increase the value of MAX to be equal to the 
Jth value of X. Line 360 is a next statement which 
will increase the counter, J, up to the value N and 
send control back to the first statement after the for 
statement, line 340. If J is already equal to N, 
control goes to line 370, which is a return state- 
ment. This statement directs control back to line 60 
because the subroutine is completed. 

Line 60 calls the subroutine that starts at line 
400. This subroutine actually prints out the histo- 
gram. Line 400 is a remark that describes the sub- 
routine. Line 410 assigns the value of 64 to a vari- 
able called WID. The remark statement on that line 
explains that this value will be used when scaling 
the maximum width of the histogram. If your video 
screen is less than 64 characters wide, you might 
want to change WID to a smaller value, say 32 or 
40. Line 420 assigns the value of 30 to the variable 
HGT, which is used to scale the height of the bar 
graph. Line 430 assigns the literal character, H, to 
the string variable, C$. This string variable con- 
tains the literal character to be used to draw the 
bars in the graph, as the remark on that line says. 
Line 440 causes the computer to print the character 
that has an ASCII code of 12. 12 is the code for the 
form feed on printers. It will also clear the video 



jprnon 



^mpletely. 



nip I. 



command CLS for the same purpose. PRINT 
CHR$(12); will work on more computers, though. 
The semicolon in this statement keeps the print 
position on the same line after the clear. That posi- 
tion is in the upper left corner of the video screen. 
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Line 450 assigns the value 8 to the variable named 
S. S is the number of spaces that we will allow the 
computer to print for the numbers of the ordinate 
(Y) axis. Line 460 is an if statement that says if N is 
greater than the width minus S, an error message 
stating that there are too many numbers to make 
bars for will be printed, and control will return to 
line 70, which is the end statement. Line 470 as- 
signs die value of INT((WID-S)/(N+1)) to the 
variable L. INT is the integer command and rounds 
fractional numbers down to next integer. L is the 
width, in characters, that each bar will be in the 
graph. Line 480 attempts to divide the vertical axis 
into as many reasonably spaced increments as pos- 
sible still using as much height as it can. SP could 
alternately be assigned a specific value if you'd like. 
Line 490 says that if the value assigned to SP in line 
480 is too large (making too many lines), divide the 
value of SP in half and then go to line number 490 
again to see if SP is still too large. If it is, it will be 
divided in half and checked again. Eventually SP 
will be made small enough to work and the com- 
puter will go on to line 500. 

Line 500 is the start of a loop with a counter, 
K, assigned initially to the value equal to MAX. The 
value of K in this case will decrease to the value 
MIN-SP by steps (or increments) of -SP. Line 
510 is another loop inside the K loop, and uses the 
variable J as a counter. These loops are said to be 
"nested." J will go from 1 to N. The J loop will be 
executed many times because it is inside the K 
loop. The K loop is for the rows and the J loop is for 



the columns. Line 520 says that if J is equal to 1, 
print the value of K and stop the print head in that 
position (because of the semicolon). Line 530 is a 
print tab statement that moves the print position to 
the J*L+S position and stops it there. Line 540 says 
if X(J) is greater than or equal to K, print L- 1 
graphic characters and stop the print head. This is 
accomplished by yet another nested loop, the M 
loop. Not all versions of BASIC allow for trie if- 
then— for-next combination so be careful. Line 550 
terminates the J loop if J gets larger than N. Line 
560 causes the print head to be moved to the begin- 
ning of the next line. (Remember the semicolons 
holding the print head at specific positions?) Line 
570 either increases K or terminates the K loop. 
Line 580 is a simple print statement that puts a 
space between the bars and the X axis scaling num- 
bers. Line 590 says that if L is less than or equal to 
two, skip the printing of trie abscissa scale because 
there are too many elements in the set to print an 
index for each of them. Control will return to line 70 
which will end the program. 

Lines 600-620 print the abscissa scale under- 
neath the bars in the graph. The J loop goes from 1 
to N. Line 610 will tab to the approximate center of 
the bar, print the index (the value of J), and hold the 
print head in that position. Line 620 will then in- 
crement J and go back to line 610 to print the next 
number under the next bar. This loop continues 
until J exceeds the value N. Line 630 will return 
control to line 70, which ends the program. That's 
it! The modified program listing follows. 



18 

28 

38 

48 

58 

68 

88 

90 

1 00 

110 

120 
130 

200 



REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 
REM 
DATA 
DATA 
REM 
REM 



200 ! REM 
300! REM 
400: REM 
1000! REM 



REM 



HISTOGRAM GRAPHING PROGRAM 
WRITTEN BV TIMOTHV J. O ' MALLEV 

DATA READING SUBROUTINE 
DATA SORTING SUBROUTINE 
HISTOGRAM PRINTING SUBROUTINE 
OPTIONAL SCREEN DUMP TO PRINTER 



DATA FOR HISTOGRAM 

THIS IS H, THE NUMBER OF ELEMENTS IN SET 
4 ? 3 .•• 7 > 3 .•■ 4 ? 7 ? 4? 5 .•■ 6 
LINE 128 IS THE ORDERED SET OF N ELEMENTS 
DATA READING SUBROUTINE 
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210 READ N:REM THIS IS THE NUMBER OF ELEMENTS IN SET 

228 DIM X<H>:REM ALLOCATE SPACE IN MEMORV FOR SET X 

238 FOR -.1=1 TO Ms REM LINES 238-250 READ DATA INTO SET 

240 READ ";«.J:> 

258 NEXT J 

268 RETURN 

398 REM DATA SORTING SUBROUTINE 

318 MIH=X-::i>sREM ASSIGN ARBITRARY MINIMUM VALUE OF SET 

328 MAX=X'::i::'!REM ASSIGN ARBITRARY MAXIMIM UALUE OF SET 

338 FOR J=l TO NsREM LINES 338-368 FIND REAL MIN AND MAX 

340 IF XCJXMIN THEN MIH=XOJ> 

350 IF X<,T>>MAX THEN MAX=X<.J> 

360 NEXT J" 

370 RETURN 

488 REM HISTOGRAM PRINTING SUBROUTINE 

418 UID=68:REM MAXIMUM WIDTH OF HISTOGRAM 

428 HGT=30:REM MAXIMUM HEIGHT OF HISTOGRAM 

438 C*=CHR*a.77>5REM GRAPHIC CHARACTER TO BE USED 

448 PRINT CHR*a.2>"sREM CLEARS MI DEO SCREEN 

450 S=8sREM ALLOW SPACE FOR ORDINATE SCALE 

460 IF N>a.JID-S> THEN PRINT "TOO MANY NUMBERS" s RETURN 

470 L=IHT<<WID™S>.-'<Nh-1>>sREM ASSIGN WIDTH TO BARS IN GRAPH 

4S8 SP== I NT ''. LOG <. MAX-M I N > > * >:' M AK-M T H > .-"H ; PPM f!RD T NATE T MCPEMFMT 

498 IF '::MAX~MIN>.-SP*2<<HGT-4) THEN SP=SP- '2: GOTO 498 

588 FOR IOMAX TO MIN SP STEP -SP 

510 FOR J=l TO N 

528 IF J=l THEN PRINT KssREM PRINT ORDINATE VALUE 

538 PRINT TAB-::,J*L+S>; : REM TAB TO EACH BAR IN GRAPH 

548 IF X<J>>=K THEN FOR M=l TO L l: PRINT C$5 : NEXT M 

558 NEXT J 

568 PRINT 

578 NEXT K 

588 PRINT 

590 IF L<=2 THEN RETURNS REM TOO MANY ELEMENTS TO PRINT SCALE 

680 FOR J=l TO NsREM LINES 688-628 PRINT ABSCISSA SCALE 

6 18 PR I NT TAB <. J+L+S+SGN < <. L -3 > .--2 > * < L-3 > --2 > ; J 5 

628 NEXT J 

638 RETURN 

1888 REM OPTIONAL SCREEN DUMP TO PRINTER 

1810 DIM UA<38,68> : FOR J=l TO 38: FOR K=l TO 68 

1 828 UA < J , !< > =PEEK < 64* < J- 1 > +K-3969 > s NEXT l< , J 

1838 Nl=3*2 A IHT<6*RHD<i>>:REM USE RANDOM PIN 

1848 POKE 260,8 5 POKE 26 1,0s POKE 8, 62s POKE 1,27 

1 850 POKE 2 , 285 : POKE 3,12s POKE 4 , 224 s POKE 5 , 28 1 

1 868 XX--USR < 8 > s POKE 1 , 65 s XX=USR < 8 > : POKE 1,2s XX=USR < 8 > 

1878 FOR ,T=1 TO 38 s FOR L=-3 TO -1 

12 



1 889 
1898 
1 188 
1 1 1 8 
1128 
1138 
READS 



FOR K=B TO 59: IF K^15=INT<K.^15> THEN QOSUB 1128 

CH=PEEK'::L--8+'<255-UA<.J.- K+- 1 } > > s FOR M=7 TO 8 STEP -1 

POKE 1 , H 1 *SGN ■:: CH AND 2"'M > s XX=USR < 8 > : NEXT M .- K 

POKE 1,13s :«:X=USR < 8 > : NEXT L , J s POKE 1,12s XX=USR < 8 > : RETURN 

POKE 1 - 27 : X:«:=U8R c! 8 > s POKE 1 , 75 s XX=USR ( 8 > 

P K E 1 : . 12 8 " Y, >■, = U S R •:. 8 > i p K E 1 .- 8 s X. y, - l_l S R < 8 > s R E T U R N 



Now let's consider the altered program. In the 
second version of this histogram graphing program, 
we will change line 430 to assign the literal charac- 
ter whose ASCII code is 177 to the string variable, 
C$. This is where a lot of computers differ. We 
want the computer to print a solid rectangle instead 
of a capital H. A solid rectangle on some computers 
has an ASCII code of 191 or another number. Check 
your system's manual. Figure 2-2 shows the histo- 
gram printed using a special graphics character. 
Some computers do not have any special graphic 
characters at all. In this case you might want to 
substitute the code for the # sign or the code for the 
asterisk. 

We have also added lines 80 and 90 and deleted 
line 70. Line 80 calls the subroutine starting at line 
1000, which is an optional screen dump. This takes 
what is located on the screen and prints it on paper. 
This subroutine is highly system-specific. It de- 
pends on the printer that you are using as well. 
Many manufacturers provide screen dump routines 
for their computers, so substitute that routine at 
line 1000. We will go through subroutine starting at 
line 1000 very briefly now. 

Line 1000 is a remark describing the sub- 
routine. Line 1010 dimensions an array called VA. 
This two-dimensional array consists of 30 rows and 
60 columns, corresponding to HGT and WID, re- 
spectively. We could also have written it DIM 
VA(HGT, WID) in some BASICs. We also start a 
nested J and K loops. Line 1020 looks at what 
characters are in what positions on the screen and 
assigns the ASCII codes of those characters to the 
corresponding positions in the array, VA. The 
upper left corner on one system has a memory 
address of -3968, while on another system it has 
the address of 15360. Systems are not compatible 
in their memories. Line 1030 assigns one of the 



pins on a dot matrix printer to be used in the print- 
ing. Again all printers are not alike. Lines 1040- 
1060 poke a Z-80 machine language subroutine into 
a reserved section of memory. The rest of this 
subroutine simply sends the array, VA, to the 
printer line by line. Don't be overly concerned 
about understanding it. 

Advantages and Disadvantages 

Histograms have the advantage of displaying 
data visually and providing a basis for comparison 
between elements in a set. Histograms have the 
disadvantage of being misleading, particularly if the 
scale does not start at zero. Figure 2-1 starts at 3 
and goes to 8. Since it does not start at zero, it 
might appear at first glance that some of the values 
are several times those of some of the others; they 
are not. Sometimes histograms can show an unfair 
comparison. Trends or the lack of them, may not be 
reflected in the histogram. 

CARTESIAN COORDINATES: 
PLOTTING TWO DATA SETS 

When you have pairs of numbers in a set, it 
might be useful to plot the numbers as points. Since 
the numbers may not be evenly distributed on 
either axis, a histogram would be out of the ques- 
tion. In this case, we need a Cartesian coordinate, 
or X-Y, plot. 

The X-Y plot is a true two-dimensional plot; it 
has an axis that is at right angles to the other axis. 
Generally, the horizontal axis is the abscissa, or X 
axis, and the vertical axis is the ordinate, or Y axis. 
Points are plotted according to the scale on each 
axis. 

The X-Y plot is very useful for statistical pur- 
poses. You can see how points are clustered to- 
gether, how Y-values change in relationship to 
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changes inX-values, and how linear the points are. 
If you can manipulate the independent variable (the 
abscissa values) and the dependent variable (the 
ordinate values) is altered as a consequence, you 
can prove a functional relationship. Plots thus make 
statistics meaningful. 

An Example in BASIC 

Let's now look at another BASIC program, one 
that will plot a two-dimensional figure. Figure 2-3 



shows the display of the program. This program 
plots the percent saturation of hemoglobin as a 
function of the partial pressure of oxygen in ton 
(units of pressure equal to 1/760 of an atmosphere). 
Lowercase letter os represent the points plotted. 
Notice that the computer made titles for the axes 
and the plot. This plot shows that as the partial 
pressure of oxygen increases, the percent satura- 
tion of hemoglobin increases and asymptomatically 
approaches 100%. 



10 REM TWO DIMENSIONAL PLOTTER 

2@ REM WRITTEN BV TIMOTHY J. O'MALLEV 

30 REM COPYRIGHT 1982, TAB BOOKS INC. 

40 REM 

50 CLEAR 200: REM INCREASE STRING SPACE FOR TITLES 

6© GOSUB 200s REM DATA READING SUBROUTINE 

78 GOSUB 400: REM DATA SORTING SUBROUTINE 

80 GOSUB 600: REM SCALING AND PLOTTING SUBROUTINE 

85 GOSUB 1000: REM < OPT I ONAL ::• SCREEN DUMP TO PRINTER 

90 END 

100 REM DATA FOR PLOTTER 

110 DATA OXYGEN DISSOCIATION CURUE:REM THIS IS MAIN TITLE 

120 DATA 02 PART. PRES. <. TORR > : REM THIS IS ABSCISSA TITLE 

130 DATA "•;; SAT. OF HB BY 02: REM THIS IS ORDINATE TITLE 

140 DATA 10: REM NUMBER OF •:>:, Y> PAIRS 

1 50 DATA 10,9. 8 , 20 , 32 „ 4 , 30 , 56 . 4 , 40 , 74 . 2 , 50 , 83 . 5 

1 60 DATA 60 , 89 ,L 70 , 92 . 6 , 80 ? 94 . 6 , 90 : . 96 . 3 , 1 88 , 97 . 3 

170 REM LINES 150-160 ARE: tfl , VI, X2,V2, ETC. 

188 DATA 0,180,10: REM X-SCALING AS MIN X, MAX X, DIUI SIGHS 

190 DATA 0,180, 1@: REM Y -SCALING AS MIN V, MAX V, DIM IS IONS 

200 REM DATA READING SUBROUTINE 

218 READ M*:REM READ MAIN TITLE 

228 READ A*: REM READ ABSCISSA TITLE 

238 READ 8*: REM READ ORDINATE TITLE 

248 READ H:REM READ NUMBER OF ':X,V> PAIRS 

250 DIM X(H>,Y<N>:REM ALLOCATE SPACE IN MEMORY FOR DATA 

260 FOR J=l TO N5REM LINES 268-288 READ DATA PAIRS 

278 READ XCJ> , Y(.J> 

288 NEXT J 

298 READ MHX,MXX,XD:REM READ X-SCALING UARIABLES 

300 READ MNY,MXY,YDsREM READ V-SCALING UARIABLES 

310 RETURN 

480 REM DATA SORTING SUBROUTINE 

410 FOR J*=i TO H-l:REM LINES 418-538 SORT BY DECREASING 

428 K=J:REM Y-UALUES THEN BY INCREASING X-UALUES 
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43© IF V < l<> >V < K+ 1 > THEN 539 

44@ IF VOO=V<i<+l> THEN 508 

45@ ft s=h < l< > : H k K > =X < K +■ 1 > s X < l< +• 1 > = A 

460 B=V < l< > : V •; K > = V < l<+ 1 > » V < K+ 1 > =B 

470 K=K~1 

480 IF !<> = ! THEN 438 

490 GOTO 530 

500 if x ao <=:•••: < i<+ 1 > then 530 

510 A=X < l< > 5 X < K" > =X < K> 1 > s X < i<+ 1 > = A 

520 GOTO 470 

530 NEXT J 

540 m 1 N =X < 1 > : MAX=X < 1 > : REM L I HES 540-586 F I HD M I H I MUM 

550 FOR J=l TO NsREM AND MAXIMUM X - UALULS 

560 IF X< J XII IN THEN MIH=X(J> 

570 IF XCJXMAX THEN MAX=XCJ> 

580 NEXT J 

590 RETURN 

60S REM SCALING AND PLOTTING SUBROUTINE 

610 UID=68sREM MAXIMUM UIDEO SCREEN WIDTH 

620 HGT=38sREM MAXIMUM UIDEO SCREEN HEIGHT 

630 C*="o" sREM GRAPHIC CHARACTER USED FOR POINTS 

640 PRINT CHR*<12>;:REM CLEAR SCREEN O30ME USE CLS> 

A SCSj r>' = -'5= mwv — mwv ?. rem pangf of v—ualues 

668 VC=DV.-VD:REM ACTUAL PLOT HEIGHT 

679 DX=MXX~r-1NX:REM RANGE OF X-UALUES 

680 XC=DX--XD:REM ACTUAL PLOT WIDTH 

690 S=5+LEN<STR*<MXV>>sREM ORDINATE TITLE AND SCALE SPACE 

790 IF '::VC*2X'::HGT-6> THEN VC=VC*2: GOTO 788 

710 IF '::XC*2X'::WID-S::' THEN XC=XC*2 = GOTO 718 

728 PRINT TAB<SKXC~-LEN<M*::'>.--2>"M* 

738 L= I NT < < LEN < 0* > --VC > >"2 > : P= 1 " W=S 

748 FOR J=MXV TO MNV STEP ■DV.-VC 

758 IF L>8 THEN PRINT MID* OH*, L, 1 > 5 

768 I F < J •■••'.'D > = I NT < J--VD > THEN PR I NT TAB < 2 > 5 J ? T AB < S- 1 > 5 " - " S 

778 PRINT TAEKS::'5 

788 IF P>N THEN 868 

798 IF ABS<-J-V<P::'>>ABS<DV.'VC> THEN 868 

300 y=s+ < X < P > -MHX > ••DX+XC 

,-,j ,-, rr I > .-• < < -r-w~ '■ > r-i-io r-._,-j -r.-| 1.1 iiippTUT riJD+M -, i ; ; MCVT p 

Ol C' XI* v •-. '.'.* i i tiZi'-i r '-•!•. r-. ™' i w •-•-"■ - "i . v * . . . w. ,.-.••.- . -. . . . .— .* ; . 

828 IF U>W THEN FOR R=l TO U-W SPRINT CHR* < 1 9 > 5 : NEXT R 
838 PRINT C$5 2 REM CHR$< 1 > IS MOUE PRINT POSITION TO LEFT 
940 l.,.l=i...isP=P+].sREM CHR*<19) IS MOUE PRINT POSITION TO RIGHT 
850 IF P<=N THEN 798 
868 PRINT 
878 L=L+lsU=S 
888 NEXT J 
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yyw 
989 
910 
920 
930 



FOR K=l TO 2 

FOR ,J=MHX TO MXX STEP XD 

U=S+ < .J -MHX > .'-"DX*XC 

THEM PRINT TAB a' J'? " ' " " 

THEN PR I NT TAB < U - I NT < LEN < SIR* < 



"AB < S+ < XC-LEN < A* > > ' y 2 > " A* 



IF I<=1 

IF l<=2 
940 NEXT J 
950 PRINT 
960 NEXT K 
970 PRINT 
980 PRINT 
990 RETURN 

1800 REM OPTIONAL SCREEN DUMP 

1010 DIM UA<30, 60 > : FOR J'=l TO 30s FOR K"l 
1 820 A < J , K > =PEEK <:. 64* < J- 1 > +K--3969 > : NEXT K 
1 ©30 N 1 =3*2' - - 1 NT < 6*RND < 1 >> : REM USE RANDOM 
1840 POKE 260,0s POKE 26 1,0s POKE 0,62s POKE 
POKE 2 , 205 s POKE 3,12s POKE 4 , 224 : POKE 
XX=USR < 8 > " POKE 1 , 65 s XX-USR < 8 > s POKE 1 



1858 
1 868 
1 878 



TO PRINTER 
TO 60 

: , j 
p i ii 
; i,2? 
: 5,201 

, 2 s XX-USR <0> 



FOR J=l TO 38 s FOR L=-8 TO 1 

1888 FOR l<>8 TO 59s IF K.-'15=INT'::i=: 
1 898 s CN=PEEK < L -8* < 255- U A < J , K+ 1 > 
1188 POKE 1,N1*SGI-KCN AND 2"M>s:» 
1110 POKE 1,13 ii XX=USR '.: ;> s NEXT l. . , 
1 1 20 POKE 1 , 27 s XX=USR < 8 > s POKE 1. , 
1 1 30 POKE 1 , 1 28 s XX=USR < 8 .:• : POKE 1 
READV 



.-15> THEN GOSUB 1128 

>>sFOR M=7 TO 8 STEP -1 

X=USR<8> SNEXT M,l< 

,J s POKE 1 , 1 2 ' XX=USR < 8 > s RETURN 

75sXX==USR'03:.' 

: , 0; KX= : USR'::0> s RETURN 



We now examine the program line by line. 
Line 10 states the nature of the program with a 
remark statement. Line 20 states the author and 
line 30 states that it is copyrighted by TAB Books 
Inc. Line 40 is a remark statement that is used 
simply to separate the lines. Line 50 is a clear 
statement that increases the amount of available 
string space for string variables to 200 characters. 
Not all versions of BASIC will do this, so check 
your particular BASIC. This line also contains a 
remark statement. Line 60 is a subroutine call to 
line 200, which reads data for the plot. Line 70 is a 
call to a subroutine that starts at line 400. That 
subroutine sorts the data. Line 80 is a subroutine 
call for scaling and plotting. Line 85 is an optional 
screen dump for printers. Line 90 ends the pro- 
gram. 

Line 100 is a remark statement for lines 100- 
190, which contains the data for the program. Line 



110 contains a data statement and a remark state- 
ment, as do lines 120 and 130. Data statements 
should not contain commas since commas are used 
to separate data. Line 140 is a data statement in- 
forming the computer that the number of (X,Y) 
pairs will eventually be set to 10 (from line 240). 
Lines 150 and 160 are the data statements that 
contain those ten (X,Y) pairs. Line 170 is a remark 
statement stating that fact. Line 180 states that we 
want the abscissa scale to go from to 100 by 
increments of 10. Line 190 says that we want the Y 
scale to go from to 100 by increments of 10. 

Line 200 is a remark statement for the sub- 
routine in lines 200-310, which reads the data into 
the variables. Line 210 reads the string variable, 
M$, from the first data statement. This is used for 
the main title of the plot. You can, of course, change 
this by changing line 110. Line 220 reads the 
abscissa title from the next data statement and 
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assigns that to the string variable, A$. Line 230 
does a similar thing for the ordinate title, assigning 
it to the string variable, 0$. Line 240 reads the first 
number, N, which is the number of (X,Y) pairs, 
from line 140. Line 250 is a dimension statement for 
the arrays, X and Y. Line 260-280 are a loop that 
reads in the elements of those arrays. Lines 290 and 
300 read the data from lines 180 and 190, respec- 
tively. These values are the scaling variables for 
the plot. Line 310 is a return statement that directs 
the computer out of the subroutine to line 70. 

Line 400 is a remark statement describing the 
subroutine in lines 400-590, which sorts the data. 
Lines 410-530 are a modified shell sorting routine 
that sorts the (X, Y) pairs by decreasing Y-values. If 
two Y-values are equal, it sorts them by increasing 
X-values. Line 410 starts the J loop. Line 420 sets 
K equal to the current value of J. Line 430 says that 
if the Kth element of Y is greater than the (K+l)th 
element of Y, go to line 530, which will attempt to 
increase the J counter and continue the loop. Line 
440 says if Y(K) is equal to Y(K+1), go to line 500, 
which will check to see if the X values are increas- 
ing. If the computer has not met either of the logical 
conditions of lines 430 or 440, it assumes that Y(K) 
is less than Y(K+1) and it must swap them and their 
associated X values. Line 450 swaps the X values 
and line 460 swaps the Y values. Notice that they 
are first assigned to a variable, A; otherwise X(K) 
and Y(K) would be lost: X(K) would have been 
made equal to X(K+1), and Y(K) would have been 
made equal to Y(K+1). K is then decreased by 1, 
and line 480 checks to see if K is greater than or 
equal to 1. If it is, control branches to line 430 to 
compare the switched values to the last Y value. 
Line 490 branches to line 530 if the condition in line 
480 is not logically true. Line 500 checks to see if 
the X values are increasing for equal Y values. If 
they are, control goes to line 530, the next J part of 

the loop. If the condition in line 500 is false, the 

v ™i„„„;, !:„« ci n ~ — „ j — a , *. — i :„ „ — * 

/i.-valucS iii line jiuaic a wappcu dim Cuutiuiia ocut 

back to line 470 by the goto statement in line 520. 
Lines 540-580 find the minimum and maximum X 
values using a loop. Line 590 ends the subroutine 
call and control returns to line 80. 

Lines 600-990 scale and plot the data as shown 



in Fig. 2-3. Line 600 is a remark statement for that 
subroutine. Line 610 sets the width of the plot to a 
maximum of 60 and line 620 sets the height of the 
plot to a maximum of 30 characters. Line 630 as- 
signs the lowercase letter o as the graphic charac- 
ter to the string variable C$. Line 640 clears the 
screen. Line 650 sets the variable DY as the differ- 
ence between the maximum Y value and the 
minimum Y value. This value will be used to calcu- 
late the appropriate height of the plot. Line 660 
assigns YC as the plot height by dividing DY by YD. 
This may be changed later. Line 670 sets DX as the 
difference between the maximum X value and the 
minimum X value. This value will be used to de- 
termine the actual plot width. Line 680 sets the plot 
width. Line 690 sets up space for the ordinate title 
and scale. Line 700 will keep increasing the value of 
YC if YC is too small for the height. Line 710 does a 
similar multiplication on the variable XC for the 
actual width of the plot. 

Line 720 tabs to the approximate center of the 
plot and then prints the title of the plot, M$. It 
centers the main title bv subtracting the length of 
one-half of the characters in the title. Line 730 finds 
the position to center the ordinate title and sets the 
line number to the variable L. This line also sets the 
variables P and W. 

Lines 740-880 form a loop that draws the rows 
of the plot. J is set to the maximum Y value and will 
decrease to the minimum Y value by decrements of 
- DY/YC. Line 750 says that if L is greater than 
zero, the Lth character in the ordinate title should 
be printed. The semicolon will hold the print head 
at the next position. Line 760 says that if we are on a 
line that has a scale number, the number and a 
hyphen should be printed and the print head should 
be kept in position. Line 770 will tab to the first 
possible position for a point to be printed. Line 780 
says that if there are no points to be plotted on that 
line, go to line 860, the next row of the figure. Line 
i vu CneCKS lu see li any pOmiS aie wiuim uic low 
also. If not, control goes to line 860. Line 800 sets V 
as the exact position of a point on the plot. Line 810 
says that if the point is to the left of the print 
position, move the print position back (W-V+l) 
spaces. The cursor control code 1 is used. Some 
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Fig. 2-3. Oxygen dissociation curve, an example of two-dimensional plotting. 



computers use PRINT CHR$(24) instead to move 
the cursor back one space without erasing the 
printed character or number. Check your system. 
Line 820 says that if the point is to the right of the 
current position, move the cursor or print head to 
the right (V- W) spaces by using the control code 19. 
Again, some computers use the code 25 instead of 
19. These actions are accomplished by a nested 
loop using the variable R. Line 830 prints the 
graphic character. Line 840 sets the variable W 
equal to the current print position and P is in- 
cremented by one. If P is less than the number of 



points to be plotted (in line 850), control goes to 
line 790 to see if any those points are on the current 
row of the plot. Line 860 moves to the next row of 
the plot. Line 870 increases the line number 
counter and sets the first possible print position 
variable, W, to the left most part of the plot, S. Line 
880 checks for the next row of the plot. It is the next 
statement of the J loop. 

Lines 890-960 form a loop that prints the X 
axis scale and markings. It computes the proper 
positions for the apostrophes and attempts to 
center the numbers under each apostrophe. Line 
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950 moves the print position to the next line and 
line 960 ends the K loop. Line 970 puts a space 
between the scale and the abscissa title. Line 980 
centers the abscissa title and prints it. Line 990 
returns the computer control to line 85 ending this 
subroutine. 

Lines 1000-1130 form an optional screen 
dump, which places whatever is on the video screen 
onto paper. We will not describe it since it is sys- 
tem specific and uses Z-80 machine language. 

This completes the description of our two-di- 
mensional plotter. Other programs could be writ- 
ten that would print plots. Later we will examine 
some examples of high resolution plotting pro- 
grams. 

DIAGRAMS 

Personal computers can construct two-dimen- 
sional graphs other than histograms and Cartesian 
coordinate plots. They can construct polar coordi- 



nate plots. In polar plots, points are determined by 
the angle and length of a line that is rotated about a 
given point. An example of polar coordinate plot- 
ting is given in Chapter 6. 

Highly detailed diagrams like maps can also be 
produced on some personal computers with good 
graphics. Other possibilities include flowcharts, 
logic circuit, diagrams, and floorplans of houses. A 
personal computer might make a good tool in de- 
signing schematic diagrams. Components could be 
moved, added, and erased while on the video 
screen. When finished, a print out might be made of 
the final diagram. Time and paperwork could be 
saved. 

There are probably other two-dimensional 
diagrams and graphs that could be made by com- 
puter. Applications will continue to present them- 
selves as people with varied interests and back- 
grounds use personal computers. Experiment and 
see what you find. 
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Chapter 3 




Three-Dimensional Graphing 



Three-dimensional graphing is a method of repro- 
ducing three-dimensional figures on two-dimen- 
sional surface, such as a video screen or on a sheet 
of paper. There must be a systematic procedure for 
incorporating the third axis as a function of the 
other two axes so that the figures acquire a realistic 
spatial quality. 



HOW TO PLOT IN THREE DIMENSIONS 

If we assume that the horizontal axis is called 
X and the vertical axis is called Y, a third axis would 
be called Z. Often mathematicians consider that the 
Z values in a graph are a function of the X and Y 
values. In such case the Z axis would be the vertical 
axis, the X axis would be the horizontal axis, and 
the Y axis would be represented in some other way. 
Let us look at a way to define that other axis. 

A simple method would be to have that axis at 
an angle relative to the other axes. The angle might 
be 30 or 45 degrees above the horizontal axis. To 
plot points, you would measure the X value along 
the horizontal axis, then move along the angle of the 



Y axis, and then move vertically for the Z axis. The 
resulting point would be produced as a function of 
all of these actions. So long as the angle remained 
constant the points would be accurately placed on 
the two-dimensional plotting medium. That is a 
simple solution to three-dimensional graphing. 

A more sophisticated solution would involve 
making the X axis not horizontal, but at a slightly 
declining angle, and the Y axis at a given angle as 
before. This produces a plot that is a little more 
realistic. Again, the points would be placed by 
travelling along the X axis; then along the Y axis; 
then vertically along the Z axis the correct number 
of units. 

The first solution just presented is called ob- 
liqueprojection while the second is called axonomet- 
ric projection. There are also other methods involv- 
ing vanishing points to make a perspective graph, 
but we will not use those methods. Instead, we now 
briefly look at a perspective method that doesn't 
use vanishing points. 

In this method of doing three-dimensional 
graphing, the equations, V=F1*ATN(F2*DZ/DY), 
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and H=F1*ATN(F2*DX/DY) are used. V is the 
vertical position; H is the horizontal position of a 
point; Fl is a magnification factor; F2 is a perspec- 
tive factor that distorts the image; DZ is the differ- 
ence in distance from the viewpoint to the point 
along the Z axis, DY is the distance along the Y axis; 
and DX is the difference along the X axis. ATN is 
the arctangent function in BASIC. When these 
equations are used for each point plotted, an accu- 
rate perspective graph is made without the use of 
vanishing points. We will investigate these equa- 
tions further in the next chapter although we will 
use them in two programs in this chapter. 

USING TRANSFORMATION 
EQUATIONS TO ROTATE IMAGES 

When plotting in three dimensions, it is often 
necessary to rotate the figures so that different 
views can be presented. It may also be necessary to 
move the points in some direction. To perform both 
of these manipulations, you must use transforma- 
tion equations. We use a set of rotation transforma- 
tion equations to rotate a set 01 points arounu eacn 
of the three axes and a set of transformation equa- 
tions to oispiace uie points aiong eacu oi uiree axes. 
Rotation of points around the Z axis would involve 
changing the X and Y coordinates of the points, for 
instance. If we wanted to displace the points along 
the Z axis, say, five units, we would add five to each 
of the Z values for all the points involved. The next 
chapter will go into more detail about rotations in 
space. 

GRAPHING RESOLUTION AND GRAPHIC CHARACTERS 

All graphs or plots require some degree of 
resolution. There are two kinds of graphics that are 
commonly used today. There are bit image 

gi. ctjVXJa^O; vviiiwi uoi- iin-ii y iuuui uuw c<.y muni/ u'< 

image, and there are block type graphics. Bit image 
graphics are composed of rows and columns of dots, 
some of which are dark. Block graphics are com- 
posed of rows and columns of squares, some of 
which are dark. 

Bit image graphics have greater resolution, 
but many computers designed for personal use 



today do not have that kind of resolution available 
for display on a video screen. There are lowcost 
printers available that will make print high-resolu- 
tion pictures using bit image graphics. 

Some computers use block graphics to place 
graphics on the screen without using a lot of mem- 
ory. Certain screen elements, of the block style, 
would be turned on to comprise the image. Thus 
graphs, plots, or other images could be produced. 
Some computers have predefined graphics or 
user-defined graphics to assist in the production of 
images. 

Computers with graphic capabilities typically 
use characters that have ASCII codes above 128. 
When these characters are printed on the video 
screen, the graphic characters appear. Some com- 
puters allow for user-defined graphics so that 
foreign letters or symbols can be created. This 
provides a great deal of flexibility in graphing. 

Some printers will print user-defined graph- 
ics. The state-of-the-art is changing rapidly. Often, 
however, what a programmer will do is display the 
graphics on the video screen and have the computer 
"dump" whatever is on the screen onto the paper. 
As we discussed earlier, the programmer would 
either buy a software package that would ac- 
complish this or create his own software to do the 
job. 

ELIMINATING HIDDEN LINES AND POINTS 

Computers can draw line drawings quite easi- 
ly, but what requires a great deal of computing is 
the elimination of lines and points that are not 
supposed to be seen. This is due to the fact that the 
computer must be programmed to decide what lines 
or points are really unseen. Algorithms for ac- 
complishing this do not come easily and those that 
do generally require a lot of number crunching. 
Without the elimination oi hidden lines and points, 
you would see all the points at once, and the image 
would be confusing. We will look at a couple oi 
methods to get rid of hidden lines in some programs 
in this book. 

THREE-DIMENSIONAL MODELS OF FUNCTIONS 

We now turn our attention to two programs 
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Fig. 3-1. The function Z=X*X-Y*Y, a saddle-shaped figure. 

that display three-dimensional functions; one will function Z=X*X-Y*Y. A saddle-shaped figure is 
be in low-resolution and one will be in high resolu- produced. We showed only some of the points as we 
tion. Within the programs we will see one method will explain later. Notice that it is difficult to see the 
of eliminating some hidden points. three-dimensional effect. The image looks more 

like a spider than anything else. Figure 3-2 has the 

A Low-Resolution Program In BASIC-Program 4 hidden points of our saddle-shaped function re- 
moved. It looks a little more like a three-dimen- 
Figure 3-1 shows the result of plotting the sional figure. 
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Fig. 3-2. The saddle-shaped function with hidden lines removed. 



19 REM 
28 REM 
30 REM 
40 REM 

60 GOSUB 390! REM 

70 QOSUB 5005 REM 

80 END 

100 REM 

110 N=500sREM 



THREE DIMENSIONAL PLOTTER 
WRITTEN BV TIMOTHV J. O'MALLEV 
COPVRIQHT 1982, TAB BOOKS INC. 

r-[ p p t h i p r> &> T c< PfiTMT !-; 
FIND EXTREME VALUES 
PRINT ON UIDEO SCREEN 



DEFINE DATA POINTS 
MAXIMUM NUMBER OF POSS 
120 DIM U<N>,H<N>«REM ALLOCATE SPACE FOR C 
139 c=@sREM INITIALIZE COUNTER FOR 



IBLE POINTS 
OORDINATES 
POINTS 
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140 FOR X=~2 TO 2s REM DEFINES X -UALUES 

156 FOR V=-2 TO 2 STEP S. is REM DEFINES V-UALUES 

160 C=C+l:REM INCREASE COUNTER 

170 Z=X*X-V*V:REM FUNCTION TO BE PLOTTED 

1 SO U ■:: C > = V*8 . 5~X*8 . 26+Z s REM UERT I C AL UAUJE 

1 90 H < C > =X*8 . 96+V*0 .87 s REM HOR I ZONT AL U ALUE 

200 NEXT SSX 

210 RETURN 

300 REM FIND EXTREME UALUES 

3 1 M I NU=U < 1 > i MAXU=U < 1 > a REM SET AT ARE I TRARV UALUES 

320 MINH=H<l>sMAXH=H<l>:REM SET AT ARB I TRARV UALUES 

330 FOR ,T=1 TO C:REM LINES 338-338 FIND MAX AND MIN 

348 IF UOJXMINU THEN MINU=UOJ> 

350 IF "...'•:: J >>MAXU THEN MAXU=U < J > 

368 IF HCJXMINH THEN M I Nl-M-K J > 

378 IF HCJSOMAXH THEN MAXH=H'CJ> 

388 NEXT J 

390 DU=MAXU-MIMUsREM RANGE OF UERTICAL UALUES 

400 DH=MAXH-MINH:REM RANGE OF HORIZONTAL UALUES 

410 RETURN 

500 REM PRINT ON UIDEO SCREEN 

510 UUD=64:REM MAXIMUM SCREEN WIDTH 

520 HGT=30sREM MAXIMUM SCREEN HEIGHT 

530 DIM S<HGT,WID>sREM DIMENSION SCREEN ARRAV 

540 FOR J=i TO HGTsREM LINES 540-578 FILL ARRAS' WITH 

550 FOR I<=1 TO W IDs REM BLANKS , ASCII CODE OF 32 

568 SCJ?I<>=32 

578 NEXT K,.J 

588 FOR J=l TO CsREM LINES 588-628 FILL ARRAV WITH POINTS 

598 HP= I NT < '■. H <. J > - M I HH > •••DH*W I D+8 . 5 > s REM HOR I ZONT AL POS I T I ON 

600 UF - 1 NT < < U < J > -M I NU > ■ 'DU+HGT+8 . 5 > : REM UERT I C AL POS I T I ON 

618 Sc:UPpHP> = ili:REM ASCII CODE FOR LOWERCASE IS 111 

615 GOSUB 888 

628 NEXT J 

638 PRINT CHR*<12>; : REM CLEAR SCREEN (SOME USE CLS> 

648 FOR J=HGT TO 1 STEP -is REM LINES 648-698 PRINT ON SCREEN 

658 FOR I<=1 TO U 

668 PRINT CHR*<S 

678 NEXT l< 

688 PRINT 

698 NEXT J 

788 RETURN 

888 REM REMOUE POINTS BEHIND PLANE 

818 REM ADD LINE 6i5 GOSUB 888 

828 IF UP<2 THEN RETURN 

838 FOR K=UP--1 TO i STEP -1 
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2>; ".REM 


CLEAR £ 


SCREEN 


1 STEP 


- 1 s REM 


LINES 


ID 






<: j ? i< > > 5 







840 


S'::K,HP>=32 


850 


NEKT l< 


860 


RETURN 



READS-' 



Let's look at the program. Lines 10-40 are 
remarks that state the nature of the program and the 
credits. Line 50 is a subroutine call to line 100 for 
defining the data points. Line 60 is a subroutine call 
to line 300 to find the extreme points for plotting 
purposes. Line 70 is a subroutine call to print the 
figure on the video screen, and line 80 ends the 
program. 

Line 100 is a remark for the first subroutine. 
Line 110 sets the variable N at 500. This is the 
maximum number of points that we want to plot. 
We use this variable in the dimension statements in 
line 120, which are for the vertical and horizontal 
positions on the screen. Line 130 sets a counter 
variable, C, to zero. We then use two nested for- 
next loops to define the X and Y values used in the 
function in lines 140 and 150. Line 160 increases 
the counter. Line 170 computes the value of Z from 
the current X and Y values. Lines 180 and 190 
compute the vertical and horizontal position of 
point C according to the axonometric projection 
that we discussed earlier. The Y axis is at 30 de- 
grees above the horizontal, the X axis declines at 
about 15 degrees below the horizontal, and the Z 
axis is vertical. The numbers in line 180 are the 
sines of those degrees and the numbers in line 190 
are the cosines of those degrees. Line 200 contains 
the next statement for the nested loops, and line 
210 returns control back to line 60. 

Lines 300-410 finds the extreme values for the 
points. The variables MTNH, MAXH, MINV, and 
MAXV are set at arbitrary first values line lines 3 10 
and 320. Lines 330-380 find the maximum and 
minimum vertical and horizontal values by using a 
loop with the variable counter J. Lines 390 and 400 

r;„j i.u „ ... ~ /At, „ j:££~ ,~ u~j-_~ „ — ±u ~ 

illiU LUC icUlgC VU1C UlliCiCHCC UCIWCC11 L11C 

maximum and minimum values of the vertical and 
horizontal values). Line 410 is a return statement. 
Lines 500-700 form the subroutine that prints 
out the figures. Line 500 is a remark statement. 



Line 510 sets the width of the plot to a maximum of 
64 characters. You may change this to another val- 
ue, particularly if your video screen is not 64 
characters in width. If your screen is 80 characters 
wide, you might want to change WID to 80. Line 
520 sets the height to 30. You could also change this 
value to, say, 24. Line 530 is a dimension statement 
which defines a screen array of height, HGT, and 
width, WID. We will use this to place points that 
are to be erased or plotted. Lines 550-570 form a 
loop that places an ASCII 32 in the entire array. 32 
is the ASCII code number for a blank space. We will 
use this so that the computer will know what to 
print where there are no points in the array. Lines 
580-620 form a loop that fills the S array with points 
at the proper positions. Lines 590 and 600 adjust 
the positions in an attempt to use the maximum area 
of the array. Line 610 sets the array at the location 
of each point to 111. Ill is the ASCII for the 
lowercase letter o. If your computer does not have 
lowercase letters, you might substitute the 
number, 79, which is the uppercase letter O, or the 
number 42, which is the code for the asterisk. If you 
want to erase the hidden points, add line 615, which 
is a subroutine call to line 800. Line 620 is the next 
statement of the current loop. Line 630 clears the 
video screen. The nested loops in lines 640-690 
print the characters corresponding to the ASCII 
codes stored in the S array. Line 700 returns to line 
80, which is an end statement. 

The subroutine in lines 800-860 erases all 
points below the current point in the same column 
of the S array. If the vertical position of the current 
point is less than 2, line 820 will send control back 
to the main program, since there could be no points 



uelow uie current point; we are on tue uottom row 
of the array. Line 830 sets up a loop with the 
counter K and erases all the possible points below 
the current position in the same column in the array 
by setting all the elements to 32, the blank space 
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Fig. 3-3. A high-resolution plot of a function. 

code. Line 850 terminates the loop, and line 860 is 
the return statement, which sends control back to 
line 620. 

That's the complete program! To change func- 
tions, substitute another line in line 170, which 
defines the Z-value. Be sure that you have suitable 
X and Y values or else you might get a domain error 
(or something to that effect). 

A High-Resolution Program in BASIC— Program 5 

We now direct our consideration toward an- 



other program that plots three-dimensional func- 
tions, this one in high-resolution graphics. First of 
all, to plot in high-resolution, you must either have 
high-resolution capabilities on your video screen or 
have a high-resolution printer. Figure 3-3 was 
printed using a lowcost, high-resolution printer, 
but it was not displayed on the screen. It was made 
using a machine- language subroutine that bypassed 
the BASIC operating system of the microcomputer. 
We will look at a way to write the entire program 
using BASIC for ease of comprehension. 



10 REM 



5D HIGH RESOLUTION FUNCTION PLOTTER 



20 
30 
40 
50 
60 
-?G\ 



REM 

REM 

REM 

GOSUB 180: REM 

GOSUB 280: REM 

GOSUB 600: REM 



WRITTEN BV TIMOTHY J. O'MALLEV 
COPYRIGHT 1982.- TAB BOOKS INC. 

INITIALIZE PROGRAM 
PLOT POINTS IN ARRAY 
PRINT OUT ARRAY ON PAPER 
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80 END 

180 REM INITIALIZE PROGRAM 

1 1 HGT=25 : I...I I D=253 s W2= 1 27 

1 20 DEF FNA < R > = 1 0* < EXP < ~R*R-' 1 000 > *COS < R.-5 > > 
130 DIM WKHGT,WID>:REM DIMENSION ARRAV FOR PLOT 
140 GOSUB 7005 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR 

PRINTER 
150 RETURN 

200 REM PLOT POINTS IN ARRAV 

21© FOR X=--30 TO 30 STEP 9= 5s FOR V=~30 TO 30 STEP 0=2 
220 R=SQR < X*X+ V*V > • Z=FNA < R '} s U=V*8 . 1 7-X*8 . 08+Z+HGT.-'2 
230 H=X*2.88+V*2„61+WID.-'2s IF U<8 OR U>HGT OR H<0 OR 

H>WIDTHEN288 
240 I U= I NT < U > s I H= I NT < H > : DU= I NT < 1 2* < U™ 1 U > > s PU=2"DU 
250 U A < I U , I H > =U A < I U , I H > OR PU 

260 GOSUB 400s REM ERASE POINTS BELOW PU IN UA<IU»IH> 
270 GOSUB 500 s REM ERASE POINTS BELOW UAdU.IH) 
280 NEXT V,X 5 RETURN 

400 REM ERASE POINTS BELOW PU IN U A >■. I U , I H > 

410 IF DU=0 THEN RETURN 
420 FOR ,T=DU~-1 TO STEP -l!J2=2 A J 

430 I F < UA < I U , I H > AND J2 > =J2 THEN UA < I U , I H > =UA < I U , I H > - J2 
440 NEXT TsRPTURH 

500 REM ERASE POINTS BELOW UA<IU,IH> 

510 IF IU=0 THEN RETURN 

520 FOR J=IU-1 TO O STEP -1 5 UACJ, Il-O=0s NEXT J: RETURN 
600 REM PRINT OUT ARRAV ON PAPER 

610 FOR JS=HGT TO O STEP -is FOR MS=11 TO STEP -1 
620 BS=INT<2''MS> : FOR LS=0 TO 1 s GOSUB 660 

630 FOR !<S=LS*W2 TO LS*W2+W2-1 ' POKE 1,SGI-KBS AND UA < JS , KS > > 
640 XX=USR < 9 > : NEXT KS , LS 5 POKE 1,13s XX=USR < S > : NEXT MS , JS 
650 POKE 1,12: XX=USR < 6 > : RETURN 

660 POKE 1 , 27 s XX=USR < ':■• s POKE 1,75s XX=USR < 8 > s POKE 1 , W2 
670 XX=USR < > = POKE 1 , s XX=USR < > : RETURN 
700 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR 

PRINTER 
710 POKE 260,0 SPOKE 26 1,8= POKE 8, 62s POKE 1,27 5 POKE 2,205 
720 POKE 3,12s POKE 4 , 224 : POKE 5 , 28 1 : XX=USR ( 8 > : POKE 1 , 65 

"77;t"j «...'•...•_-! ! C: C* !"' !r! "*? «• £!'!""!! -XT 1 ... 1 » ':.;"••' 7-! I '"'* O ;•' *~* '"-. ■ OCT""!"! !DK! 

READV 

Let's look at the program line by line. Lines the subroutine at line 600, which prints out the 

10-40 give the name of the program and other cred- array on paper. Line 80 ends the program. 

its using remark statements. Line 50 is a sub- Line 100 is a remark, heading the subroutine 

routine call to line 100 where the program will be that sets up (initializes) the program. Line 110 

initialized. Line 60 is a subroutine call to line 200, defines the height, HGT, as 25, the width, WID, as 

which places points in the array. Line 70 is a call to 253 and the variable W2 as 127. HGT and WID will 
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be used to dimension the VA array, but there is a 
very subtle "catch". Each number in mat array can 
represent up to 12 different points. That makes the 
figure have a height of 12*(25+1) or 312 points 
maximum, and a width of (253+1) or 254 points 
maximum. The one extra came from using the Oth 
index (0,0) of our array for both the rows and col- 
umns. All told, they are a maximum of 79,248 posi- 
tions in which points can be printed. We will see 
how this is attained later. Line 120 is a defined 
function that makes the figure. If your computer can 
not define functions, simply substitute the equiva- 
lent of this function when defining Z in line 220. 
This function contains the exponential function and 
the cosine function that are predefined in BASIC. 
Line 130 dimensions the array used in the point 
plotter. Line 140 is a subroutine call to line 700, 
which sets up a machine language subroutine to 
pass numbers to the printer, bypassing the BASIC 
operating system. Again, we will explain this in 
detail and show alternate ways to do approximately 
the same tiling in BASIC. Line 150 is a return 
statement (to line 60). 

Line 200 is a remark statement for the plotting 
subroutine, lines 200-280. Lines 210-280 form 
nested for-next loops that define the X and the Y 
values. Line 220 sets the variable R as the square 
root of X squared plus Y squared. R is the distance 
from the center of this model. Z is defined as a 
function of R. R is already a function of X and Y. V, 
the vertical position of the point, is defined in the 
same kind of axonometric way that we dem- 
onstrated in the last program. In line 230, H is the 
horizontal position of the point, defined in a similar 
manner. If H or V are outside the bounds of our 
array's dimensions, control goes to line 280, which 
is a next statement for the next set of X and Y 
coordinates. Line 240 is where it starts to get 
tricky. In this line we define IV as the integer, or 
whole number part of the value of V. The same is 
done for H. Now we define DV as the integer part of 
12 times the fractional part of V and we set PV to 2 
to the power of DV. That means if the fractional part 
is zero, PV is 1; if the fractional part is over 0.083, 
PV is 2; if the fractional part is over 0. 167, PV is 4; 
if the fractional part is 3/12 or more, PV is 8 and so 



on up to 11/12 or more where PV equals 2048. Line 
250 does a Boolean-algebra binary-logical OR bet- 
ween the array at VA(IV.IH) and PV, and sets the 
result equal to VA(IV,IH). In this way we can actu- 
ally represent several points by one number. Make 
sure your computer can do a binary-logical OR; 
Type PRINT 3 OR 1. Does it equal 3? Line 260 
erases all the bits below PV in VA(IV,IH) using its 
subroutine call to line 400. Line 270 is a subroutine 
call that erases all numbers below VA(IV,IH) in the 
same column by going to line 500. Line 280 contains 
the next stagements for the nested loops and causes 
a return to line 70 after the loops are completed. 

The subroutine in lines 400-440 erases bits in 
the VA array. Line 400 is a remark statement for 
the subroutine. Line 410 says if DV is zero, return 
to the main program because PV is 1 and there are 
no bits below the bit for the number one. Lines 
420-440 use a loop and the Boolean-algebra binary- 
logical AND operator to find out whether or not if 
bits exist at certain positions. If your computer 
works with the OR function in line 250, it will work 
with the AND function in line 430. Line 420 sets the 
J counter initially at a value DV-1, to be decreased 
to zero by decrements of - 1. J2 is set to 2 to the 
power of J. Line 430 says if the bit of the array at 
VA(IV.IH) exists for the number J2, subtract J2 
from the number and redefine VA(IV,IH). This pro- 
cedure effectively erases a bit if it exists. Line 440 
is the next statement for mis loop, along with a 
return statement to line 270. 

Lines 500-520 erase all the numbers below 
VA(IV,IH) in the same column in the VA array. Line 
500 is the remark statement for the subroutine. 
Line 510 says that if we are already at the bottom of 
the array, forget it and return to line 280. Line 520 
contains a loop that says to set all the elements of 
the array below our current point to zero and then 
return to line 280. 

Lines 600-650 print out the bits of the array on 
paper. Line 600 is the remark statement for the 
subroutine and line 610 contains two nested loops, 
JS, and inside that, MS. JS is for the rows of the 
array and MS is for the bits of the numbers of the 
array. Line 620 sets BS equal to the integer of two 
to the power of MS and contains yet another nested 
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loop inside the MS loop, the LS loop. The LS loop is 
used to configure the computer to print a line of 
high-resolution graphics. It does this by going to 
the subroutine at line 660. Line 630 contains yet 
another nested for-next loop inside of the LS loop. 
This loop uses the variable KS for a counter for the 
columns of the array. Line 630 also contains a poke 
command. It pokes the sign of the binary logical 
AND of BS and VAQS.KS) into memory position 1. 
lAtic o4v/ makes a roacnine-language suuroutme can 
and prints a possible bit on paper. It then goes to the 
next KS and LS. Then it pokes the number 13 (code 
for carriage return) into memory position 1 and 
does a machine-language subroutine call to send it. 
to the printer. Then the next statement for MS and 
JS are encountered. Line 650 pokes the number 12 
into memory position 1 and sends it to the printer. 
12 is the code for the form feed control character. 
Then the return statement returns control to line 80 
to end the program. 

Lines 660-670 configure the printer to print 
the next W2 characters that it receives as high- 



too.-J!^.^ rrrcr-Mir 



1it"!AC ^ifiP 1 Aniit' T .7'sl/ r, nf" t"fv 



PRINT CHR$(27); CHR$(75); CHR$(W2); 
CHR$(0). 27 is the code for escape; 75 is the code 
for "K"; W2 is the number 127 and tells the compu- 
ter to print the next 127 characters it receives as 
graphics. The are for characters in excess of 128 
(none). 

Briefly stated the machine language in lines 
700-730 says to LD A with the number at memory 
location 1, CALL SEND (the memory position to 
send the contents of A to the current output device) 



and return from the machine-language subroutine. 
Lines 720 and 730 also poke the numbers 65 (for 
"A"), and 1 to tell the printer that it will be advanc- 
ing the line by a length equivalent to 1/72". If this 
makes no sense to you, don't worry about it; this 
book is about BASIC, not about machine-language. 
That concludes the two programs concerning 
three-dimensional models of functions. We now 
look at two similar programs that print out space- 
filling models of molecules, which are presented as 
spheres. 

THREE-DIMENSIONAL, SPACE-FILLING 
MOLECULAR MODELS 

Let's look at two programs that do look realis- 
tic; one is a low-resolution program that prints the 
figure on the video screen and one that creates a 
high-resolution figure using a printer. 

A Low-Resolution Program in BASIC— Program 6 

Figure 3-4 shows a series of low-resolution 
figures deDictinp two hexagons made of circles. 
Originally one hexagon ring is tilted "back" into the 
plane of the page. This model might represent, the 
carbon atoms of the molecule biphenol. We will use 
this organic molecule to be the model that we will 
view in the two programs. Figure 3-4 shows the 
partial rotation of the model about the vertical (Z) 
axis. Figure 3-5 shows partial rotation about the Y 
axis; Fig. 3-6 shows partial rotation about the X 
axis; and Fig. 3-7 shows partial rotation of the left 
part of the molecule about the X axis. 



10 REM 
26 REM 



LOW-RESOLUT I ON =- SPACE-F I LL I NG 



3Q 
40 
58 
60 
70 
yy 
96 
95 

100 



REM 
REM 
REM 
GO SUB 
GOSUB 
GOSUB 
GOSUB 
GOTO 7 
REM 



WRITTEN BV 
COPYRIGHT 



T I MOTHS-' J. O'MALLE'-i 
1982 » TAB BOOKS INC. 



10@ s REM INITIALIZE PROGRAM AND READ DATA 
2S8 s REM SORT BV DECREASING DISTANCES TO UIEMPOtNT 
400: REM PLOT POINTS AND PRINT ON PAPER 
608 s REM ROTATE POINTS ABOUT AN AKIS 
s REM REPEAT ROTATION AND PRINTING INDEFINITE!. V 
INITIALIZE PROGRAM AND READ DATA 



1 1 E=0 . 4 s N 1 = 1 2 : RD=0 . 5 : F=0 . 1 : G=0 . 98 : HGT=64 : W I D=64 
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128 DIM XO-ll ':> -.• V<N1 > , Z<Ni > .- '-KH1 > ., I-KH1 > , RS<N1 > , DKN1) , R<3> 

138 FOR ,T=1 TO NlsREAD XCJ> , VC JD , Z <J> : NEXT J 

1 46 DATA @ ? , n 8 . 5 ? > . S7 , 1 . 5 ? ? . 87 , 2 > 8 .-. 8 

1 58 DATA 1 . 5 ? ? ~0 . 87 ? . 5 ^ 8 * -8 . 87 , 3 .- .- .- 3 . 5 ■.< . 348 : . . 34i: 

1 60 DATA 4.5.- . 348 ? 8 . 348 .- 5 , 8 ? 8 * 4.5? -8 . 348 * -8 . 348 

1 78 DATA 3.5? -8 . 348 , -8 „ 348 

1 98 R < 1 > =2.5: R < 2 > =8 s R < 3 > =8 s X < 8 > =2 . 5 " V < 8 > =- 1 8 s Z < 8 > = 1 s B*= " I 

195 RETURN 

288 REM SORT BV DECREASING DISTANCES TO U I EURO I NT 

282 FOR J=l TO Nl 

284 DV= V < J > - V <. 8 > s I F D V< =0 THEN PR I NT " DECREASE V < 8 > " " STOP 
286 DX=X >■. -J > -X ■:: 8 > s DZ--Z < J > - Z < 8 > 

288 D I < J > =SQR •: D V*D V+DX*DX+DZ*DZ > s RS < J :> = ATM < F*RD--'D I < J > > 

289 U < .J > = ATN < F*DZ • D'r' > : H < J > = ATN < F*DX-D V > : NEXT J 
218 FOR J=l TO Nl-ls|<=.J 

228 IF DI(K+i)<=DI(K) THEN 278 

238 A=X < l< ::• s X < K > =X ■; K+ 1 > 5 X < K+ 1 > = A s A= V < K > ! V < l< > = V < K+ 1 > : '■>■' < l<+ 1 : 
248 A=Z < l< ':■> s Z < K > =Z < l<+ 1 > s Z < K+ 1 > = A s A=U < K > : U < l< > =U < K+ 1 > : U < K+ 1 : 
258 A=H < l< > : H < K > =H < K+ 1 > s |-| < K+- J. > = A s A=RS C K > s RS <: K > =RS < K+ 1 > 5 RS 

< l<+ 1 > = A 
255 A=D I <: l< > : D I < l< > =D I < K+ 1 > : D I < K+ 1 > = A 
268 K=K-1:IF K>8 THEN 228 
278 NEXT J 
288 M I NU=U < 1 > -RS < 1 > s MAXU=U < 1 > +RS C 1 > 

285 M I NH=H < 1 > -RS < 1 > : MAXH=H < 1 > +RS < 1 > 
298 FOR J=l TO Nl 

388 IF U<J>-RS<JXMIHU THEN MINU=U< JJ-RSC J> 

318 IF U<J>+RS'::J)>MAXU THEN MAXU=>,K,J>+RS'::.J> 

328 IF H(J>-RS<.J><MINH THEN M I NH=H < J > -RS < J > 

330 IF H<.J>+RS<.J)>I1AXH THEN MAXH=H<.J>+RSCJ> 

340 NEXT J s DH=l1AXH-ri I NH s DU^MAXU-H I NU 

350 FOR J=l TO Nl 

368 H •; J > =G* •:: H •; J > -M I NH > ,-'DH*l.d I D 5 U < J ) =G* '•" U < J > -M I NU > .-'DU*HGT 

378 RS < J > =G*RS < J > ^ DH*W I D s NEXT J s RETURN 

488 REM PLOT POINTS AND PRINT ON PAPER 

485 MU=0sFOR 1=1 TO NlslF U < J > +RS ( J > >MU THEN MU=U'::.J> + RS<. 

406 NEXT J : MU= I NT < MU > + 1 

410 FOR ,TS-4'1U TO 8 STEP -1 

438 FOR KS=-0 TO UID-1 5 SS=8 

448 FOR NS= 1 TO N 1 : PS=SQR < < KS H (. HS > > ---2+ < JS - U <. NS ::■ > '-2> 

458 IF <PS-RS'::HS>X1 THEN SS=1:IF PS<RS<HS> THEN SS=8 

468 NEXT HS : PR I NT M I D* < " * " , SS+ 1 , 1 > s : NEXT KS : PR I NT : NEXT , 

478 PRINT CHR*<12> 

■488 RETURN 

688 REM ROTATE POINTS ABOUT AN AXIS 

610 FOR .J=l TO Nl 

628 I F B*= " Z " THEN A 1 =X <: J > " A2=R < 1 > : A3=V ■;' -J > s A4=R < 2 > 



=A 



J > 
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639 IF B*="V" THEM A1=X>; J> s A2=R< 1 > 5 A3=Z<-J> s A4=PX3> 

648 I F B*= " X " THEN A 1 = V < .J > ! A2=R < 2 > s A3=Z < J > i A4=R (. 3 > 

6 58 P 1 = A 1 - A 2 s p 2 = A 3 - A 4 

660 L=SQR < P 1 *P 1 +P2*P2 > 

670 IF P2=Q THEN A5=->;Pl<e>*3. 141593 

680 IF PI =8 THEN A5=SGN<P2>*1 „ 570796 

690 IF P2O0 AMD PI OS THEN A5=ATN'::P2.-P1 >-<Pl<0>*3. 141593 

700 A5=A5+E 

7 1 IF B*= " Z " THEN X < J .> =L *COS < A5 > +R <. 1 > s V < J > =L* 



730 I F B*= " X " THEN V < J > =l_*COS < A5 > +R <; 2 > s Z < J > =L* 

740 NEXT J s RETURN 

READS' 



SIH<A5>+R<2> 

• T L i .•• .-■•. cr •-. i r-i .-• ~T \ 

>IN<A5>+R<3) 



Lines 10-50 are remark statements stating the 
nature of the program and giving the credits. Line 
60 is a subroutine call to line 100, where the pro- 
gram is set up and the data is read. Line 70 is a call 
to a subroutine that sorts the points at the centers of 
the spheres in the order of decreasing distances 
from a defined viewpoint. This viewpoint could be 
likened to your eye as it would see the molecule. 
Line 80 is a subroutine uaii to iiac 4u0, wiiiui piuts 
the points and prints them on paper or the video 
screen, i^ine 90 is a subroutine can to une ouv, 
which rotates the points about a specified axis. Line 
95 is a goto statement that repeats the rotation and 
printing endlessly. You must interrupt the program 
to stop it. You might write a loop that would rotate 
and print out the figures a finite number of times. 

Lines 100-195 set variables and arrays and 
read in data. Line 100 is a remark statement for the 
section. Line 110 sets E equal to 0.4. E is the 
rotation increment in radians. Nl is the number of 
points (spheres) in the figure. RD is the radius of 
the spheres. F is the oers^ective factor that makes 
close objects seem large and far objects seem 
small. G is the magnification factor. HGT is the 
height and WID is die width. You may need to adjust 
the HGT and WID to get a proper figure. Line 120 
dimensions the arrays used. X, Y, and Z are the 
coordinates of the points; V and H are the vertical 
and horizontal arrays for the positions of the points; 
RS is the adjusted radius of each sphere; DI is the 
distance from each point to the viewpoint; R is the 
point of rotation for each of the axes. Line 130 is a 



loop that reads in the X, Y, and Z coordinates. Lines 
140-170 contain those values. Line 190 sets R(l) 
equal to 2. 5. R(l) is the point about which the model 
will rotate when rotating parallel to the X-axis. R(2) 
is the point that the molecule will rotate about when 
rotating parallel to the Y-axis and R(3) is the rota- 
tion point for the Z-axis, X(0) is the X-value of the 
viewpoint; Y(0) is the Y-value of the viewpoint and 

f?fr\\ ;_ ^i *7 J,,,, £ i-l, ,, -,.' ... .-.J.,; T^iJ.-. = ,-, ,-* A~. .-. =.- .-. 

£t\\j) 15 uic Z/-Vaiuc iOr iliic viCVvpwiiiL. i Uib ib wiiL-Ii- 

your eye would be if you were actually viewing the 

iiiOicCUic in iCcuity, a ulat wcic poocaiuic. xjxp is a 

literal string variable that designates the axis of 
rotation. Changing B$ to "X" or "Y" will allow 
rotation around the other axes. Line 195 returns 
control back to line 70. 

Lines 200-370 sort the points by their decreas- 
ing distances from the coordinates of the view- 
point. Line 210 is a remark statement for the sub- 
routine. Lines 202-209 form a loop which defines 
DY, the distance from the point to the viewpoint 
along the Y-axis; DX, the difference between them 
along the X-axis; and DZ, the difference between 
them along the Z-axis. If DY is negative the object is 
behind your head, as it were, and you would have to 

uaLtv uii uy ucv-icaoiiig xv."/- i*"i<s *juO Uv-miCo u*, 

the distance from the viewpoint to each point. This 
is the square root of the sum of the differences 
squared. RS is the adjusted radius for each sphere. 
In line 209 V and H are the adjusted vertical and 
horizontal positions for each point. 

Lines 210-270 are a modified shell sorting 
routine that moves the points' coordinates and 
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other associated arrays according to their decreas- 
ing distances from the viewpoint. We've seen a sort 
like this before. 

Lines 280 and 285 set the minimum and 
maximum heights and widths to an arbitrary value, 
the first one in the array. Lines 290-340 find the 



actual minimum and maximum values for the height 
and width values of the points. Line 340 sets DH as 
the difference in the width and DV as the difference 
in the height. 

Lines 350-370 form a loop that adjusts the 
values of the points so that they will fill as much of 
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Fig. 3-4. Partial rotation of a molecular model about the Z axis (continued on page 34.) 
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Fig. 3-4. (Continued from page 33.) 
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the screen or paper as possible. The loop adjusts 
the height. V, the width, H, and the radius, RS, of 
each point. Then control returns to line 80. 

Lines 400-480 plot the points and print them 
on the screen or on paper as asterisks. The variable 
MV is set to zero in line 405. This variable is used 
to denote where the first line of printing is located. 
It is used so that we can quickly "tab" down to 
where the printing begins. The rest of line 405 is a 
loop used to find the actual first position of printing. 
Line 406 ends the loop and sets MV as the INT(MV) 
plus one. We don't want to miss part of the first line 
of print. 

Lines 410-460 contain three nested loops that 
compute the distance of each point from the current 
screen position or print position. If that distance 
equals the radius of a sphere it momentarily sets 
the variable SS=1. If a sphere is nearer to the 
viewpoint, and that position is within the radius 
distance, it will reset SS to zero. JS is the loop for 
the height, KS is for the width, and NS is the loop 
for distance of the spheres from the viewpoint. Line 



470 is a form feed command and line 480 returns 
control back to line 90. 

Lines 600-740 are a rotation-transformation 
equation set that allows points to be rotated about 
specific points parallel to either of the three axes. 
For each point, the angle of which it lies is com- 
puted, and then the increment angle, E, is added to 
its angle and the position is redefined. When points 
are rotated about the Z axis, the Z-values of the 
points do not change; only the X and Y-values 
change. Similar things happen with rotations about 
the other axes. Rotations about the Y-axis do not 
affect the Y-values of the points, and rotations about 
the X-axis do not affect the X-values of the points. 
Line 670 has an interesting feature. If P2=0 then 
A5 equals the negative of the value of the result of 
the logical condition, PI is less than zero, times the 
value of pi. Not all computer's will give a result to 
PRINT - (2=1 ) or similar requests for the display 
of the result of logical operations. Check your sys- 
tem. If Pi is less than zero, the result within the 
parentheses would be true or equal to - 1. If it were 
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Fig. 3-5. Partial rotation of a molecular model about the Y axis (continued on page 37). 
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Fig. 3-5. (Continued from page 37.) 
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false, it would equal 0. Thus A5 equals Pi if PI is 
less than zero, and A5 equals if PI is not less than 
zero. A similar type of operation exists in line 690. 
A5 is the angle (in radians) at which the point lies 
from the origin, relative to the axis that is involved 
in the rotation. The increment is added in line 700. 
The rest of the lines transform the point to the 
coordinates of its new position after the rotation. 
Line 740 ends the loop and returns control back to 
line 95, which repeats the entire process. You may 
have to finagle a little with the height and width to 
get the best figure possible. 

This low-resolution program really doesn't do 
justice to what the program is really capable of 



doing. The next program uses the same data and 
much of the same programming to make superlative 
plots. 

A High-Resolution Program in BASIC— Program 7 

Figure 3-8 shows several partial rotations of 
the model about the Z-axis. You must admit that the 
clarity has improved greatly. Figure 3-9 shows the 
partial rotation about the Y-axis and Figure 3-10 
displays a rotation about the X-axis. Figure 3-11 
gives the rotation about the X-axis for the six 
spheres on the left. These figures could be made 
larger by increasing the HGT and WID variables in 
the program. Let's look at the program. 
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10 REM HIGH-RESOLUTION.- SPACE-FILLING 

2@ REM ROTATING MOLECULAR MODEL 

30 REM WRITTEN BV TIMOTHV J. O'MALLEV 

40 REM COPYRIGHT 1982, TAB BOOKS INC. 

50 REM 

60 GOSUB 100: REM INITIALIZE PROGRAM AND READ DATA 

70 GOSUB 200s REM SORT BV DECREASING DISTANCES TO VIEWPOINT 

80 GOSUB 480 s REM PLOT POINTS AND PRINT ON PAPER 

90 GOSUB 600s REM ROTATE POINTS ABOUT AN AXIS 

95 GOTO 70s REM REPEAT ROTATION AND PRINTING INDEFINITELY 

100 REM INITIALIZE PROGRAM AND READ DATA 

110 E=0 . 4 s H 1 = 1 2 s RD=0 . 5 s F=8 . 1 s Q=@ . 98 s HGT=96 : W I D-38 : W2=88 

128 DIM X<N1> ? V<N1>»Z<N1>,U<N1>»H<N1>»RS<M1>»DI<N1> J R<3> 

1 38 FOR J= 1 TO N 1 s READ X < J > , V < J y ., Z ■:: J > s NEXT J 

1 40 DATA O ? 8 .- O .-• . 5 .-. , . 87 > 1 . 5 ? 8 .■• 8 . 87 ? 2 * , 8 

1 58 DATA 1.5j@? -8 . 87 ? 8 . 5 , 8 ? -0 . 87 ? 3 , 8 .-. 8 .-. 3.5:. 8 . 348 * 8 . 348 

1 68 DATA 4 . 5 , 8 . 348 , 8 . 348 ? 5 ? 8 ? 8 ? 4.5 .- -8 . 348 ? -0 . 348 

1 70 DATA 3.5,-0. 348 , -0 . 348 

180 GOSUB 518SREM SET UP MACHINE LANGUAGE SUBROUTINE FOR 

PRINTER 
190 R<l>=2.5sR<2>=0!R<3:5=8!X';8::'=2.5! V<8>=-18sZC0> = lsB*="Z" 
195 RETURN 

200 REM SORT BV DECREASING DISTANCES TO VIEWPOINT 
202 FOR J=l TO HI 

204 DV=V < J > -V < 8 > s I F DV< =8 THEN PR I NT " DECREASE V < 8 > " s STOP 
286 DX=X •:: -J > -X < > : DZ=Z C-J > -Z < 8 > 

208 D I < .J > =SQR < DV*D V+DX*DX+DZ*DZ > " RS < J > = ATN ( F*RD -D K.J> > 

209 U < J > = ATN < F*DZ--DV > : H < J > = ATN < F*DX •-DV > : NEXT J 
218 FOR J=l TO Nl-l:K=J 

228 IF DI<K+1X=DI'::K> THEN 270 

238 A=X < K > : X < l< > =X ( K+ 1 > " X < K+ 1 > = A s A=V < K > s '■■•' C l< > = V < K> 1 > s V < l<+ 1 ;:> = A 
248 A=Z •:: l< ):Z( l< > =Z C l<+ 1 > s Z < l<+ 1 > = A s A=U < K > s U ■:: K > =U < l<+ 1 > s V < !<+ 1 > = A 
258 A=H < l< > s H < K > =H C K+ 1 > s H < l<+ 1 > = A : A=RS < K > s RS < l< > =RS < l<+ 1 > s RS 

< l<+ 1 > =A 
255 A=D I < K > = D I < l< > =D I < l<+ 1 > s D I < K+ 1 > = A 
268 K=K-l:IF K>8 THEN 228 
278 NEXT -J 
288 M I NU=U < 1 > -RS 'C 1 > s M AXU=U < 1 > +RS < 1 > 

'"'85 MTMLbUf' 1 't-PCf' 1 ';: « M •is': :'!-! — U if 1 >J.I?C;( 1 'J 

298 FOR J=l TO HI 

388 IF UCJV-RSCJXnlHV THEN MINU-VCJ^-RSCJ) 

318 IF VOJ>+RS<.J>>MAXU THEN MAXU=UC J:j+RS<J> 

328 IF H'::.J>-RSt:.J><MINH THEN MINH==HOJ>»RS':: J> 

338 IF H'::.J>+RS<.J>>MAXH THEN MAXH=I-KJ>+RS{ J> 

348 NEXT J s DH=M AXH-M I NH " D V=M AX V M I NU 

358 FOR J=l TO Nl 
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369 H < J > =G* < hi •; J > -I'-l I NH > ••■••DH+Ul I D s U .; .J > =13* < U < -J > -M I NU > .--DU+HGT 

37S RS <. J > =G*RS < J > ••DH* W I D : NEXT J s RETURN 

400 REM PLOT POINTS AND PRINT ON PAPER 

405 MU=05FOR -J=l TO His IF U < J > +RS < J > >NU THEN MU=UOJ::'+RSOJ> 

406 NEXT .J5MU=INT<i'IU> + l 
410 FOR JS=MU TO & STEP -1 
420 FOR LS=0 TO 82GOSUB 490 

430 FOR KS=LS*W2 TO LS*W2+W2-1 s SS=@ 

440 FOR N S = 1 T N 1 s P S = S Q R <:. ■:: K S - H < N S > > "'- 2 + < .J S - U < N S > > ""• 2 ':> 

450 IF «::PS-RSCNS>><1 THEN SS=1:IF PS<RS':!NS> THEN SS=@ 

460 NEXT HS : POKE 1 , SS s XX=USR < > s NEXT KS , LS 

47© POKE 1 , 1 3 s XX--USR •:! O > s NEXT JS 

4S0 RETURN 

•490 POKE 1 , 27 s XX=USR < > " POKE 1 , 75 : XX==USR 't > s POKE 1 , I.-J2 

500 XX=USR •:: > s POKE 1 , 8 s XX=USR < © > s RETURN 

510 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 

520 POKE 260 , s POKE 26 1,0s POKE , 62 s POKE 1,27s POKE 2 , 205 

530 POKE 3 :■ 1 2 s POKE 4 , 224 s POKE 5 ,20 1 " XX=USR < 8 > s POKE 1 , 65 

5413 xx^ijsr. •:; ;:. s POKE 1 , 1 s XX=IJSR < O > s RETURN 

608 REM ROTATE POINTS ABOUT AN AXIS 

610 FOR J'=i TO Nl 

620 I F B$= " Z " THEN A 1 =X 'i J > s A2=R < 1 > ! A3™ V ■'. J > ! A4=R C 2 > 

638 I F B*= " V " THEN A 1 =X C J ) s A2=R C 1 > s A3~Z C J > ! A4=R < 3 > 

6 4 O IF B $ = " X " T H E H A 1 = V < J > : A 2 == R < 2 > s A 3 = Z < J > s A 4 = R < 3 ':■< 

6 5 8 P 1 ~ : A 1 -• A 2 s P 2 = A 3 - A 4 

660 L=SQR 'I P 1 *P 1 +P2*P2 ..:• 

670 IF P2=8 THEN A5^--<P1<8;'*3,. 141593 

680 IF P1=0 THEN A5==SGN'::P2>*1 . 570796 

690 I F P2 < >0 AND P 1 < y THEM A5~ATN < P2.-"P 1 > t. P 1 < > *3 . 1 4 1 593 

708 A5=A5+E 

7 1 8 J! F B$= " Z " THEN X <. J :> =L : + : COS < A5 > +R < 1 > " V >-. J > =L*S I H ( A5 > +R < 2 > 

728 I F B:fc= " V " THEM X < J > =L*COS <. A5 > +R < 1 > "■ Z < J' > =L*S I N < A5 > +R < 3 > 

738 I F B*= " X " "I HEN V <:. J > =L*COS < A5 ;■ -i~R ■:! 2 > s 2 <:; J > =L*S I H < A5 > +R < 3 > 

74 8 NEXT J : RETURN 

READ',' 



The two programs are the same except for 
several lines. Line 10 says "high-resolution" in- 
stead of "low-resolution." In line 100 we've added 
the variable W2 and have increased the values of 
HGT and WID. We have added line 180 which sets 
up the machine language subroutine for passing 
numbers to the printer, bypassing the BASIC 
operating system. Again, we could change that sub- 
routine to BASIC statements. We have also added 
line 420, which is a nested loop that sets up the 



configuration for the printer to accept numbers and 
print them as graphics. Line 430 has been changed, 
as has line 460. Line 470 is also different. Lines 
490-540 are the same kind of instructions as we saw 
for die high-resolution function plotter earlier. The 
rest of this program is the same as the low- 
resolution version. 

By changing Nl you can read in more data and 
plot more spheres. You can increase the height and 
width of the plotting area by changing WID and 



41 







** *#* ** ** ** ** 




*** *** ** ** ** ** * 




** ** ** * * ** * 




** *** *** * * * 




** * **** *** * ** 




*** * * * ** * * * ** 




*** * * ** * * * * 




* * * * * * ** * * 




* * * * * ** ** ** * 




* * * ** * ** ** ** ** * 




+ ** *** * * ******** * ****** * 




* ** ** * * * * * * * 




* *** *** *** **. ** * * * ** 




* ** * **** * ** * * ** ** 




** ** ** ** ** ** +* * *** ** 




*** * * * ***** **** * **** 




** ** ** :** * * * 




*** **** * * * * 




** * ** ** 
****** ***** 


***** ***** 




* * * ** 


***** 


****** ** ** *.* * 


******** ** 


**** *** *** ** * * ** 


** *** *** *** ** * ** * :* * ** 


** * ** ** 


* ** * * * * 


* * * * 


* * * * * * 


* * * 


** * * * * 


* 


* + * 


* * * ** * 


+: 


* * * 


* * * ** * * 


* 


* * * 


* * ** **** ** ** 


* 


* * * 


* ** **** * *** ** 


* * * 


** * ** * * ** ** 


*** :+: * 


* ** ** ** * *+'+' * + 


** ** ** 


***** **** ** **** 


*** ** ** ** ** ** * ** 


******* ****** '*'* 


*** +** ** ** *** 
**** *** 


** ** * ****** ****** 




* * ** ** * * * ** 




******* * *** *** ** * * * *** 




** ** * * * ** * * * ** 




■f* ■*■ -i- -i- ±± ± * * * 




* *** ** * * * 




* ***** ******* * * * * * 




* ** ** *** ** * * * * * 




* * **** ** * * * * * 




* ** *# * * * *** * * 




* * * * ** * ** ** ** ** 




* * * ****** **** *** *** ** 




** * ***** ********** **** ** 




* * *** ***** ** ** ****** 




* * * **** **** 




* ** * 




* * * * 




* * ** ** 




****** ******* 




****** 


****** 


** ** 


* * 


* * + 


* 


* ** 


* 


* * 


* 


* * 


* 


* * 


** ** ***** **** 


******* * 


*+* *** ** ******** ** ********* 


+ * ** .** 


* * ** ** *** *+ ** *:+: 


+* * * *+ * ** * * * * * 


* * ** 


**** * * * ** * 


* *:{; 


•*•-*■ * * * * * 


* * 


* * * * * * 


* * 


* * •*■ ■*■ -i, i 


* ***** 


***** + * * * * 


* * :f* * 


*+ ** * * * ** 


* * ** * 


** •*■ **■ ■*■ .,,.*.*. .,...,, .,,..,. 


*** ** 


* ** *■* * * * ; t ; *;f. 


** * 




*** ****** ** ** **** 


* * 




f **** **** 


+ * 




4« 


* * 




f 


** :+: 




* 


* ** 


* 


* * * 


** 


** ** ** ** 


***** 


f**** 



Fig. 3-6. Partial rotation of a molecular model about the X axis. 
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Fig. 3-7, Partial rotation of left group about the X axis. 
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Fig. 3-8. Partial rotation of a high-resolution molecular model Fig. 3-10. Partial rotation of a high-resolution molecular 
about the Z axis. model about the X axis. 
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Fig. 3-1 1 . Partial rotation of the left group of the high-resolution model about the X axis. 

HGT. If you want to show different kinds of atoms viewpoint. You might even change line 450 to ran- 

in the molecular model you might read in different domly shade the spheres. We could spend a lot of 

radii for them with data statements. All the spheres time with this program, but let's go on to bigger and 

in our model had the same actual radius, although better things. It doesn't pay to stay in one place too 

they looked larger when they were closer to the long. 
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Chapter 4 




We briefly discussed perspective when we plotted 
a three-dimensional figure. We learned a little bit 
about erasing hidden points both in the function 
plotters and in the molecular model. This chapter 
deals with the drawing of figures that have straight 
lines and are in perspective. We will see all the 
lines at once, giving the figures the appearance of 
wire models. 

THE NATURE OF PERSPECTIVE 

What is it about sight that makes distant ob- 
jects appear small and close objects appear large 
and that makes tall buildings seem to shrink down 
toward the horizon? The answer lies with geometry 
and trigonometry. Distances twice as great, make 
objects seem one-half as large. When our eyes are 
Ygr-ir close to ob'ects that object a nn ears verv large 
and vice versa. The angle between the top of the 
object, our eye, and the bottom of the object de- 
creases with distance. The same is true for the 
width. Although we have not really answered the 



question, we have enough information now to write 

computer programs that draw perspective »me 
drawings. 

Perspective Plotting 

In Chapter 3 we mentioned a couple of equa- 
tions that we used to plot points in perspective. 
They contained some numbers that we had to define 
rather arbitrarily. We will now talk about them 
further and discuss how to draw perspective lines. 

Let's look at those equations. They were: 
V=F1* ATN(F2*DZ/DY) and H=F1*(F2* 
DX/DY), although in the programs we used the 

vaxim/ico, u auui , iui i x uuu x ^, n-o|/^^u. w.; . ..^ 

actually used two steps. We set V=ATN(F*DZ/ 
DY); then adjusted it to fill the screen, and then 
readjusted it using the G factor. In these equations 
G or Fl is the magnification factor, and F or F2 is 
equal to the inverse of the distance that we set as 
one-half infinity to the eye. In other words if we 
were using a vanishing point type of perspective 
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drawing, this would be equal to one-half the dis- 
tance to the vanishing point on the paper. It's a 
fudge factor, really. The Fl factor is for the scaling 
of the figure and the F2 factor is for the apparent 
distortion in size as an object approaches very 
close. If we increase the value of Fl, the figure will 
be magnified. If we increase the value of F2, it 
really becomes distorted, much as if it were viewed 
through a fisheye lens. 

In the equations, V is the plotted vertical posi- 
tion of the point on the screen or paper, and H is the 
horizontal position of the point. DX is the differ- 
ence, along the X dimension, between the coordi- 
nate of the point and the X-coordinate of the view- 
point. DY is the difference between the Y-co- 
ordinate of the point and the viewpoint, and DZ is 
the difference between the Z-coordinate of the 
point and the viewpoint. ATN is the arctangent 
function. 

What we do in the perspective line drawings is 
to find the V and H and construct a linear line 
connecting them. We make the assumption that all 



the points on a straight line between two perspec- 
tive points are in perspective also. I offer no 
mathematical proof; we must rely on an intuitive 
feeling that the assumption is true. 

PERSPECTIVE LINE PLOTTERS IN BASIC 

We will look at two perspective line plotters; 
one is low-resolution and one is high-resolution. 
The low-resolution plotter will be used to draw 
some simple solid geometric shapes, and the high- 
resolution one will be used to draw the perspective 
lines of a house. 

Low-Resolution Program In BASIC— Program 8 

Figure 4-1 shows solid geometric forms as 
they are rotated about the vertical axis. The objects 
are supposed to be a pyramid on a square base, a 
cube, and two flat diamonds. The low resolution 
really does not do justice to the program, which will 
be modified to create a high-resolution drawing of a 
house. 
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REM 

REM 

REM 

REM 

QOSUB 300: REM 

FOR J=0 TO Us FOR 

GOSUB 600: REM 

GOSUB 800: REM 

GOSUB 12005 REM 

GOSUB 

GOTO 



LOW-RESOLUTION LINE PLOTTER 
WRITTEN BV TIMOTHV J. O'MALLEV 
COPYRIGHT 1982, TAB BOOKS INC. 

I N I T I AL I ZE UAR I ABLES 
K=0 TO W:UA<.J,K>=32:NEXT K,, 
ROTATE POINTS ABOUT AXIS 
TRANSLATE X,V,Z TO H,U 
DRAW LINES CONNECTING POINT:; 
1600s REM PRINT OUT LOW RESOLUTION 





REM 

IP=21:IA==43 
DIM I'::iA>,K 
FOR J=l TO 
READ KCj;' : . V 
NEHT J 
DATA O, 0, 1, 
DATA 1 ? 1 j 1 ; 

DATA 3:. 3.- 0:. 

DATA 3.- O, 1, 
DATA 0.-3.- 8 ? 
FOR J=l TO 



INITIALIZE UAR I ABLES 



<IP> 
IP 

1,0, li 
1, 1,0: 

2,3.-8: 
2.5-0: 
,3.5: 

I A 



'::iP>,Z'::iP>,R 



J ::> 



1: 
8: 

O „ 5 

8 „ 5 



8 , : 
1,0: 

5,2. 

0: 



, .- : 
2,2,8: 

5, 1 

8 , 8 , 3 , 

3,1, 8 : 



U<IP::',H'::iP> 



8, 1, 1 
3,2,8 

5 , 8 , 8 . 5 
2.5.-0.!: 
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398 

409 

495 
4 1 
415 
416 
420 
430 
440 
■450 
460 
470 
475 
480 

500 
600 

6 1 © 
620 
639 
640 
650 
660 

680 

698 

700 

710 

720 
730 
740 
750 

800 

810 
820 
830 
840 
850 
860 

88© 
898 
980 
9 1 
920 
938 
940 



READ I(J) 

NEXT J 

DATA 1 , 2 , 3 : . 4 , 1 , 5 , 6 , 7 , 8 , 5 - 8 , 4 , 8 , 8 : . 2 , 6 , , 3 , 7 , 

DATA 9, 10, 11:. 12:. 9, 13, 10,0, 11, 13, 12,0 

DATA 14, 15, 16, 17, 14,0 

DATA 18, 19,20, 21, 18 

X < > =2 s V < > =~ 1 ' Z <. > =3 

F=8. l!G=lsREM F IS THE DISTORT I OH AND 8 IS MAGNIFICATION. 

B*="Z" 

l...l=63sl_l--63 

DIM UA<U,W> 

E=0 . 4 : REM ROT AT I OH I MCREMEHT 

RETURN 

REM ROTATE POINTS ABOUT AXIS 

FOR -J=S TO T 

I F B*= " Z " THEN A 1 =X < J > " A2=R ■:". 1 > " A3= V < J > " A4=R < 2 > 

I F B*= " V " THEN A 1 =X < J > : A2=R < 1 > : A3=Z < J' > : A4=R < 3 ) 

I F B*= " X " THEN A 1 = V < -J > " A2=R < 2 > s A3=Z < J > : A4=R < 3 > 

P 1 = A 1 -A 2 s P2= A3 -• A 4 

L=SQR < P 1 *P 1 +P2*P2 > 

IF P1=0 THEN A5=SGN<P2>* 1.579796 

I F P2< >8 AND P 1 < >@ THEN A5-ATH < P2 -■- P 1 > - '"". P 1 - : ' > *3 » 141 593 
A5=A5+E 



3II-KA5>+R< 
3IN(A5>+R< 
3 1 H C A5 > +R t 



I F B*= " Z " THEN X ■■ J > =L*COS < A5 > + R (. 1 > s V C J > =L 

I F B*= " V " THEN X < J > =L*CG8 ( A5 > +R ••; 1 > s Z < J > =L 

I F B*= " X " THEN V < J > =L*COS < A5 > +R < 2 > s Z < J > =L* 

NEXT J 

RETURN 

REM TRANSLATE X, '•■', Z- TO H.-U 

FOR J=l TO IP 

DV=V(.J>-V'::0>: IF DV<=0 THEN PRINT "DECREASE V ■:.' O > " : STOP 

DX=X< J>-X':;0> 

1...1 < j > = ATN < F*DZ •-DV > s REM UERT I C AL SCREEN POS I T I ON 
H < J .':■ = ATN < F*DX-- D V > s REM HOR I ZONTAL SCREEN POS I T I OH 

'.JCV-'T T 
1 11— i". 1 J 

M I NU=U < 1 > s MAXU=U < 1 > 

M I NH=H < 1 > s M AXH=H < 1 > 

FOR ,T=1 TO IP 

IF UCJXMINU THEN MIHU=U<J) 

IF i..K.j>>MAXU THEN MAXO=UCJ> 

IF HCJXMIHH THEN MIHI-NHCJ.':- 

IF HCJ>>MAXH THEN MAXH=4KJ> 
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956 NEXT J 

968 DH=MAXH~MINH 

978 DU=MA:*:U--MINU 

9S8 FOR J=l TO IP 

998 H •:: J ::■ =G* < H < .J > ~M 1 HH > --'DH*W 

1 888 U < J > =G* < U < J > ~l'1 1 NO > ••DU*U 

1118 NEXT J 

1128 RETURN 

1288 REM DRAW LINES CONNECTING POINTS 

1218 FOR J=l TO IA-1 

1228 IF ICJ>=8 OR I CJ+l >=8 THEN 1348 

1238 HH=H >: I <. J+ 1 > > -H < I C J > > 

1 240 UU=U < I < J+ 1 > ) -U < I ( J > > 

1258 sn=sgn<:hh> 

1268 if sn=8 then 1368 

1278 M=UU-"HH 

1 280 B=U < I < ,T > ;> -M*H C I < J > > 

1 290 SP=SQR (. UU*UU+HH*HH > 

1300 FOR K=H< I <J>> TO H< I CJ+1 > > STEP HH--'SP 

1310 P=M*K+B 

1328 GOSUB 1588 

1338, NEXT l< 

1348 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INF I NITS' 

1370 K=H(I(J)) 

1380 IF SQIKUU>=8 THEN P=4-K l'< J> > : GOSUB 1 500 s GOTO 1348 

1 398 FOR P=U C I < J > > TO U < 1 <: J+ 1 > > STEP SGN < W > 

1 4 8 8 6 O S U B 1 5 8 8 

1418 NEXT P 

1428 GOTO 1348 

1500 REM PLOTTING SUBROUTINE 

1518 IF P)U OR P<8 OR IOUI OR l«8 THEN RETURN 

1 528 U 1 = 1 NT C P > s 02= I NT < l< > 

1538 UA<U1,U2::'=42 

1540 RETURN 

1600 REM LOW RESOLUTION PRINTER 

1685 MH=@sFOR NM=1 TO IPs IF MHOKNM:'' THEN MH=U<NMI> 

1 687 NEXT NM : MH= I NT < HH > + 1 

1610 FOR ,TS=MH TO 8 STEP -is FOR KS=@ TO W 

1 638 PR I NT CHR* < U A <. JS , i<S > > ; s NEXT KS : PR 1 NT 

1 668 NEXT ,TS : PR I NT CHR$ >; 1 2 > 5 ! RETURN 

READS' 

Let's look at this program line by line. Lines Line 50 is a subroutine call to line 300, which sets 
10-40 are remarks about the nature of the program, up the program by reading data, defining variables 
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************** * 

*** * *** 



* * 



***** ** * 

*** **** 

* ****** 



* ******* 



******** 



* * 



******* 



** ************ * 



** 



* ******* * 

*** * *** 

***** **** 

***** * 



******** * 



***** 
* * 



**** 
* ** 

* ***** * **** * 

* ********* * 



***** * **** 

*** * ** 

** * *** 






* * 

** ** 



** * * * * 



*********** 



** * * 

** ** 



Fig. 4-1 . Partial rotation of solid geometric forms about the vertical axis. 
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and dimensioning arrays. Line 70 is a nested loop 
that sets all the elements of the VA array equal to 
32. 32 is the ASCII code for a blank space. Line 75 is 
a subroutine call to line 600, which rotates points 
about an axis. Line 80 is a call to line 800, which 
translates the X, Y, and Z coordinates of each point 
to a horizontal and vertical value so that it can be 
stored in the array, VA. Line 100 calls the sub- 
routine at 1200, which draws lines between points, 
and line 105 prints out the low-resolution figures as 
asterisks. Line 110 goes to line 70 to repeat the 
rotation and printing without end. You might want 
to change it to a finite number of repetitions, possi- 
bly by using a loop. 

Line 300 is a remark statement for the ini- 
tialization of the program. In line 305, IP is the 
number of points that we give coordinates for. 
These points are corners in the figure. IA contains 
the number of points in the I array. This controls 
which points are connected to which points. Line 
310 dimensions various arrays used in the program. 
Lines 320-340 read the coordinates of the points, 
these coordinates are found in lines 345-349. Lines 
380-400 form a loop that reads in the I array ele- 
ments from data statements in lines 405-416. Point 
1 is connected to point 2, which is connected to 
point 3, which is connected to point 4, which is 
connected back to point 1, which is also connected 
to point 5, and so forth. A is used as a terminator 
for the line connections. By using this scheme, the 
computer will be able to compute the points for the 
connecting lines and thus determine where the 
lines are to be made. Line 420 says that the X-axis 
rotations are to be made about the line X=2; Y-axis 
rotations about the line Y=2 and Z-axis rotations 
about the line Z=0.5. In line 430 the coordinates of 
the viewpoint are defined. Line 440 sets the 
perspective factors. In line 450, S is the index of the 
first point to be rotated and T is the index of the last 
point to be rotated. In this case, we want to rotate 
all of them. Using these variables allow greater 
flexibility for the rotations. Line 460 says to rotate 
the points about the Z axis. Line 470 contains the 
variables for the width and height respectively. 
Line 475 dimensions the VA array, which will store 



the points and lines of the figures. Line 480 defines 
the rotation increment. Line 500 returns control to 
line 70. 

Lines 600-750 rotate points using the same set 
of transformation equations that we have seen be- 
fore. Line 610 allows you to rotate only some of the 
points, those from index S to index T. It then 
returns control to line 80. Lines 800-1120 form a 
subroutine that translates the three-dimensional 
points to two-dimensional positions in the arrays H 
and V. We have examined this subroutine before, 
so enough said about it. Line 1120 returns control 
to line 100. 

Lines 1200-1350 draw lines connecting the 
points indicated in array I. If two points have the 
same vertical position the short subroutine in lines 
1360-1420 is used. The subroutine is necessary 
because the program defines the equation of the 
slope of the line between the two points and a 
vertical line has an infinite slope. Line 1220 checks 
for the zero, indicating the terminus of a line con- 
nection. Lines 1230-1240 find the difference be- 
tween the horizontal and vertical positions of the 
points so that the slope, M, can be calculated in line 
1270. Line 1280 computes B, the Y-intercept, so 
that the equation of the current line can be com- 
puted in line 1310 of the program. SP, in line 1290, 
is the distance between the two points. Lines 
1300-1330 fill the space between the two points 
with an appropriate number of other points, making 
a line. 

The plotting subroutine in lines 1500-1540 is 
called by the line connecting subroutine. This sub- 
routine checks to see whether or not the points are 
outside of the dimensions of the array by using the if 
statement in line 1510. If they are not, it rounds the 
position of the point to integers in line 1520 and sets 
the VA array at that position to 42. 42 is the ASCII 
code for the asterisk. You may change this number 
if you want to print a different symbol. 

Lines 1600-1660 form the low-resolution 
printer routine. The variable MH is used as the row 
number in the array where the printing should start. 
This way we eliminate the printing of a lot of empty 
spaces at the top of the array. As I said before, it is a 
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"tab" of sorts. The loop starting in 1610 simply 
prints out the CHR$ of each of the elements in the 
array. Line 1660 contains a statement that clears 
the screen because it is a form feed command. 

That concludes the program. Now we will look 
at a program that uses much the same programming 
to produce a line drawing of a house. 



High-Resolution Program In BASIC— Program 9 

Figure 4-2 depicts a few of the possible views 
of the house produced by the high-resolution line 
drawing program. When using line drawings, it is 
best to use as few lines as possible or else the figure 
will appear cluttered and confusing. Let's examine 
the program listing. 



1© REM 

20 REM 
3© REM 
40 REM 
58 GOSUB 



390: REM 



PERSPECTIVE LIME PLOTTER OF HOUSE 
WRITTEN BV T I MOTHS' J. O'MALLEV 
COPVRIGHT 1982:. TAB BOOKS INC. 

INITIALIZE VARIABLES 



70 FOR ,T=8 TO Us FOR K=8 TO Ws VAO.T, K>=0s NEXT K,J 



ROTATE POINTS ABOUT AXIS 
TRANSLATE X.V.Z TO H,U 
DRAW LINES CONNECTING POINTS 
PRINT OUT HIGH RESOLUTION 



INITIALIZE VARIABLES 



75 GOSUB 608 s REM 

SO GOSUB 800 s REM 

100 GOSUB 1280 s REM 

185 GOSUB 1680 s REM 

118 GOTO 78 

308 REM 

385 IP=34: IA=87 

3 1 D I M I < I A > .- X < I P > , V < I P > , Z < I P > , R < 3 > , V < I P 

■Sjiki r '_'K J — i i U i r 

338 READ X < J > 7 V < J > , Z C J > 

348 NEXT J 

345 DATA 8 ,8,8 , £1 , 4S , 8 



,H<IP> 



346 DATA 

347 DATA 

348 DATA 

349 DATA 28.48 
358 DATA 28.28 
351 DATA 20,48 
388 FOR J=l TO 
398 READ I ••! -J > 
488 NEXT J 
485 DATA 1,2,3 
410 DATA 
415 DATA 

DATA 
DATA 



28.-8.8? 28.8 
18. 8, 12. 0. 8 
1©. 40. 21 



20. 
12. 

0. 

IA 



28 : 
28: 
36: 



56.48.8, 36.18.0, 28,18,8 
18, 8.8.18, 8.8.18, 20.8. 10 
20 , 10,8,27. 20 , 8 , 28 , 8 . 48 . 28 
48 . 28 , 18.34. 27 , 28 , 28 . 28 . 28 . 

4£» ? 27 . 36 . 48 . 28 . 3fo ? ^y . j^!U ? kiy ? 
28,12, 36,18.18. 28, 18, 10 



?8 , 48 ,12, 28 , 48 , 18. 8 . 48 . 1 8 , 8 , 48 . 1 2 



1.2, 15: 



8 ,7,1 - 9 

17.18,1 9 

!.21. 17.8 



8 - 11 - 7 . 6 , . 9 , 1 2 : 
28 , 17,8, 1 8 , 28 , 8 
25, 22. 8 



1 



14, 18. 8 



4,5,6, 1 :■ 
16, 13,8. 
1 '3 , 2! = i , 24 , 23 , '2'1 
4 i 6 DATA 23 ,3,8, 24 . 27 ? 26 . 19,8, 26 , 29 , 5 , 8 , 29 , 28 , 27 ,8,28,4, 8 

417 DATA 21,38,8.33.34,31,32:. 33,2,8, 17,31,8, 15, 34 

418 DATA 8,16,17,8,14,19 
428 R < 1 > = 1 8 s R •:: 2 > =24 : R < 3 > = 1 4 
438 X < 8 > =6 s V < 8 > =•- 1 88 ' Z < 8 > =6 

440 F=8„ lsG=lsREM F IS THE DISTORTION AND G IS MAGNIFICATION. 
458 S=lsT=IP 
468 B*="Z" 
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478 W--253 : U=25 : W2= 1 27 

475 DIM UAai,I..J> 

488 E=0.4:REM ROTATION INCREMENT 

498 POKE 268, 8 SPOKE 261,0: POKE 8, 62s POKE 1,27: POKE 2,285 

588 POKE 3,12: POKE 4 , 224 : POKE 5 , 28 1 : XX=U8R < 8 > : POKE 1 , 65 

518 XX=USR •:.' 8 > s POKE 1,1s XX=USR •:.' 8 > : RETURN 

688 REM ROTATE POINTS ABOUT AXIS 

618 FOR J=S TO T 

628 IF B*= " Z " THEN A 1 =X < J > : A2=R < 1 > : A3= V < J > : A4=R < 2 > 

638 I F B*= " V " THEN A 1 =X < J .':■ i A2=R < 1 > : A3=Z < J > : A4=R < 3 > 

648 I F B*= " X " THEN A 1 = V < J > : A2=R < 2 > : A3=Z < J > : A4=R < 3 > 

658 P 1 = A 1 ~ A2 : P2-A3-A4 

668 L=SQR < P 1 *P 1 +P2*P2 > 

678 IF P2=8 THEN A5=8-';P1<8."J*3. 141593 

688 IF PI =8 THEN A5==SGN < P2 > * 1 . 578796 

698 I F P2< >8 AND P 1 < >0 THEN A5= ATN C P2--P 1 > - < P 1 < 8 > *3 .141 593 

788 A5=A5+E 

718 IF B*="Z" THEN X< J>=L*COS< A5>+R< 1 > : V< J>=L*SIN<C A5>+R<2> 

728 IF B*= " V " THEN X < J > =L*COS < A5 > +R < 1 > : Z < J > =L*S I N < A5 :< +p <! 3 :• 

738 IF B*= " X " THEN V < J > =L*COS < A5 > +R < 2 > : Z < J > =L*:=: I H < A5 J +R <r 3 "■ 

748 NEXT J 

758 RETURN 

888 REM TRANSLATE X,V,Z TO l-N U 

810 FOR J=l TO IP 

820 DV=V<,T::«-V'::0::': IF DV<=8 THEN PRINT "DECREASE V < Q > " : STOP 

8 3 D X = X >'l J > — X £ > 

840 DZ=Z<J>-Z<0> 

850 U < J > = ATN < F*DZ..'D'v' > : REM UERT I CAL SCREEN POS I T I OH 

860 H'::J>=ATN>:.F*DX.--DV>:REM HORIZONTAL SCREEN POSITinN 

878 NEXT ,T 

888 M I NU=U < 1 > s MAXU=U < 1 > 

898 M I NH=H < 1 > s MAXH=H < 1 > 

98S FOR J=l TO IP 

918 IF U<JXMINU THEN MINU=i..K.J> 

928 IF UCJ>>MAXU THEN MAXU=U'::.J> 

930 IF HCJXMINH THEN MINH=H<J> 

940 IF HCJ::'>MAXH THEN MAXH=H<J> 

950 NEXT J 

960 DH=MAXH~-MINH 

970 DU=MAXU-MINU 

980 FOR J=i TO IP 

990 H < J > =G* < H ■:: J > -M I NH > •• DI-W..I 

1 888 U < J .':• =G* < U < J > -M I NU > .^DU*U 

1118 NEXT ,T 

1128 RETURN 

1208 REM DRAW LINES CONNECTING POINTS 
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1219 FOR J=l TO IA-1 

1220 IF I<jy-0 OR K,T+1>=8 THEN 1340 

1 230 hh=h c i '■. j+ 1 > > ~h < i < j > > 
1 240 uu=u ■:.' i < j+ 1 > '> -u < i < j > > 
1250 sh=sgi-khh> 
1260 if sn=0 then 1360 

1270 M=UU--HH 

1 280 B=U < I < J > ::■ -M*H <. I < J > > 

1 290 SF-SQR •:: UU*UU+HH*HH > 

1 3©0 FOR K=H < I '• -J > > TO H ■: I C ._T+ 1 > > 

1310 P=M*K+B 

1320 GOSUB ISO© 

1330 NEXT K 

1340 NEXT J 

1350 RETURN 

1360 REM 

1370 K=H(KJ)) 

13S0 IF SGI--KUU>=0 THEN F-H < I < J > > 



TEP HH.-SP 



SLOPE EQUALS INFIHITV 



GOSUB 1500 s GOTO 1348 



1 390 FOR P-U < I •: -J > ':> TO U < I < -J+ 1 ':> > STEP S6N < UU ':-> ■•" 1 2 

1400 GOSUB 1500 

1410 NEXT P 

1428 GOTO 1348 

1580 REM PLOTTING SUBROUTINE 

1510 IF P>U OR P<0 OR K>W OR K<8 THEN RETURN 

1 520 U 1 = 1 NT < P > " U2= I NT C K > 

1 530 U A •:: U 1 , 02 > =U A < U 1 > U2 > 0R2"" I NT < 1 2* C P-U 1 > > 

1540 RETURN 

1600 REM HIGH RESOLUTION PRINTER 

1610 FOR JS=U TO O STEP -l:FOR MS=11 TO 8 STEP -1 

1620 BS=INT'.:2-MS>sF0R LS=8 TO 1 : GOSUB 1658 

1630 FOR KS=LS*W2 TO LS*W2+W2-1 '• POKE 1,SGN<BS AND U A < JS =• KS > > 

1 g,40 XX=USR ■:: O > : NEXT KS , LS s POKE 1,13s KX=USR < > : NEXT MS , JS 

1 ft4R POKE 1,12s XX=USR < > s RETURN 

1650 POKE 1, 27s ; : <;X=IJSR<0> : POKE 1 , 75 : XX=USR < > : POKE 1 .- W2 

1 66© XX=USR < © > s POKE 1 :■ @ s XX=USR < 8 > : RETURN 

READ',' 



Lines 10-40 are remark statements for the 
nmnr»!n T irtpc ^O-l 1 arp thp c:nmp as thev were in 
the last program, except that now the subroutine at 
iine 1600 prints out figures in high-resolution. Line 
70 sets the elements of the array to zero rather than 
32 since we are using a different method to print out 
points. Line 305 sets IP and IA at larger values 
because there are more points and connections. We 
have added a few more data statements to include 



this information. We have changed iine 42u to ro- 
tate the figure about different axes than we did in 
the last program. Line 430 is also different. In line 

Anr\ — ~ ~AA~A t-Un tm^nKlo W9 ortrl olf^roH thf* 

values of W and U. We have added the statements in 
lines 490-510 to set up a machine-language sub- 
routine to pass numbers directly to the printer as 
we have done in other programs. 

The translating subroutine is exactly as it was 
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before. The line connecting subroutine is the same 
except for line 1390, which divides the step 
SGN(W), by 12. Line 1530 does a Boolean algebra 
binary-logical OR on the numbers in VA(V1,V2) 
using 2 to the power of the integer of 12 times P 
minus VI. In this program we are actually plotting 
bits of numbers when we plot the figure. 

The high-resolution printer is very different 
from the low-resolution printer. Therefore we have 
added a nested loop, MS, to take care of the bits of 
the numbers. It's much like the high-resolution 
printer routine that we used in the program that 
created a three-dimensional plot of a function. 

ROTATING POINTS IN SPACE 

We've seen programs that are rotation trans- 
formation equations, but we really have not dis- 
cussed how we arrived at the equations. Neither 
have we discussed how to rotate points about an 
arbitrary axis. We will do both in this section. 

Rotation About a Defined Axis 

We can rotate a set of points parallel to the X, 
Y or Z-axis, although the rotation doesn't have to be 
about the axis itself. We can designate R(l) to be 
the point about which the points are rotated when 
we perform an X-axis rotation; for example, if 
R(l)=3, we are rotating about the lineX=3. R(2) is 
for the Y-axis and R(3) is for the Z-axis. 

If we rotate points about the X-axis, the 
X-coordinate of each point does not change. As a 
point is rotated, it circumscribes a plane. The locus 
of the points is a circle on that plane. The other two 
coordinates do change, however. As we rotate 
about the X-axis, the Y-coordinate changes as a 
function of the cosine of its original angle plus the 
increment of rotation. The Z-coordinate changes as 
a function of the sine of its original angle plus the 
rotation increment. In the programs that include 
rotations, we have generalized the set of equations 



so that Al is the first coordinate that changes and 
A2 is the second. We must find the size of the angle 
that each point is rotationally displaced about its 
axis. Then we must add the increment to that angle 
and redefine the points to get the rotation. 

Rotation About an Arbitrary Axis 

What if we wanted to rotate a set of points 
about an arbitrary axis, one that isn't parallel to any 
of the three axes? One solution is to rotate the set of 
points parallel to an axis first, then perform the 
rotation that you want, and finally rotate the points 
back from the parallel axis to the original position. 
The result would be that the points would seem to 
rotate only about the arbitrary axis. Another solu- 
tion is to redefine our transformation equations to 
include rotation about an arbitrary axis. In the pro- 
grams that follow, we will rotate some points about 
an arbitrary axis using the first method. 

INTERACTIVE SPACE 

SHUTTLE SIMULATIONS IN BASIC 

We now look at two versions of a space shuttle 
program in BASIC; one is a low-resolution version 
and one is a high-resolution version. We will be 
able to manipulate the model in three dimensions 
and operate the cargo bay doors. 

A Low-Resolution 

Perspective Line Program— Program 10 

This first program uses block-type graphics to 
make a figure. Figure 4-3 shows the model of the 
space shuttle as it may look on the video screen 
when the program starts. Figure 4-4 shows the 
result of rotating the model along the X-axis 1.0 
radians. These figures show the wings, tail, cargo 
bay doors, nose and windows of the spacecraft. By 
adding more points and lines, you could embellish 
the figures; however, in low-resolution they might 
look too jumbled. 



16 REM 
26 REM 
30 REM 
35 REM 
40 PRINT 



LOW-RESOLUTION SPACE SHUTTLE SIMULATION 
WRITTEN BV TIMOTH'v' J. O'MALLEV 
COPVRIGHT 1982. TAB BOOKS INC. 



CHR*<12>: 
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41 PR I NT SPRINT SPRINT 

42 PRINT TABC15)! "INTERACTIVE SPACE SHUTTLE SIMULATION' 

43 PRINT TAB':: 1 8 >" "WRITTEN BV TIMOTHV J. O'MALLEV" 

44 PRINT TAB(18)S " COPYRIGHT 1982, TAB BOOKS INC." 

45 PR I NT s PR I NT s PR I NT 

46 INPUT "DO VOU WANT INSTRUCTIONS <VES OR NOV SAN* 

47 IF AN*="VES" THEN GOSUB 2680 

48 PR I NT s PR I NT s PR I NT 

49 PRINT "THE COMPUTER WILL NOW SET UP THE PROGRAM." 

50 GOSUB 3009s REM DEFINE BLOCK GRAPHICS 
60 GOSUB 300: REM INITIALIZE VARIABLES 

65 GOSUB 500 s GOSUB 808s GOSUB 1288: REM DISPLAV START 

70 INPUT "COMMAND" 5 CM* 

75 M 1 *=LEFT* < CM* , 1 > s E=UAL < R I GHT* < CM* , < LEN (. CM* > -2 > > > 

88 GOSUB 4088 s REM INTERPRET COMMANDS 

90 GOSUB 60885 REM THIS LINE IS OPTIONAL 

108 GOTO 78 

308 REM INITIALIZE VARIABLES 

365 I P= 1 1 2 s I A= 1 87 : PTR=9 s I D=8 

318 DIM I(IA) S X(IP) I V(IP) J Z(IP) J R(3) ! I.K I P > =. H < I P > 

315 DIM STLC188> 

316 DIM SX < I P '? , SV < I P > , SZ < I P > 
318 DIM SN'::iee::« 

328 FOR J=l TO IP 

338 READ X f '. J ) , V '"■. J y , Z •'■. -J ."■• 

3 3 5 S X < ■ J > = X < J > s S V < ■ J > ~ V < J > s S Z < • J > = Z <-, J > 

348 NEXT J 

345 DATA 8 , , 8 .- 8 , 3 . 7'5 , 1 , 8 , 6 . 5 , 3 . 75 , 8 : . 7 . 5 , 7 . 5 



346 DATA 0? i: 

347 DATA 0, 

348 DATA 68 
349 l DATA 68 
358 DATA 68 

351 DATA 8, 

352 DATA 60 

353 DATA 0, 

354 DATA 68 

355 DATA 62 

356 DATA 77 

357 DATA O, 

358 DATA 76 

359 DATA 83 
368 DATA 39 

361 DATA 69 

362 DATA 41 

363 DATA 77' 



.5,11.25, 8,3 
-6 ,,5,11.25, 8 , 

8 , 8 , 68 
.6.5, 11. 
.-6.5:. 11 
3 , 15 , 8 , ■-• 
. 8 , 1 5 , 68 , -3 . 75 , 14, 68 , 



14, 8,8,15, 8,-3.75,14 
5 , 7 . 5 , 8 , —6 . 5 , 3 . 75 , , ~ 
3. 75, 1 , 60, 6.5, 3. 75, 60, 7.5,7.5 
5,68,3.75, 14,60,0, 15,60,-3.75, 14 

. 75 , 1 4 , 8 , --6 „ 5 ,11. 25 , 8 , -7.5, 7 . 5 

6.5, 11 ,.25,60, -7. 5,7 



-n- -per 



5, 1 



'5, 1 



[1, 15,0,3.75, 14,8,6.5, 11.25,8,7.5,7.5 

. 8 , 1 5 , 68 , 3 . 75 ,14, 68 , 6 .5,11. 25 , 68 , 7 „ 5 , 7 . 5 

i8, 15, 77 , 8 , 45 ,87,8, 42 . 5 , 82 , 8 , 28 

i 8 , 1 5 , 77 , 8 :. 28 , 85 , 8 , 48 . 5 , 86 , 8 , 48 . 5 
7.5, 8 , 3 1 , - 14.5,8, 39 , - 1 7 , 8 , 60 , -37 , 8 , 66 , -48 , 8 

42 : , Q : , 79 „ 5 •, —28 .-• 8 .-• 83 , — 1 3 , @ , '"?3 , —9 , 8 , 93 •> 9 ■• 8 

1 3 , , 79 . 5 , 28 , , 76 , 42 , 8 , 66 , 48 , 8 , 68 , 37 , 8 

1 7 , 8 ,31, 14.5 , 8 , 8 ,7.5,8,41.5, 1 5 , 8 , 63 

-48 , 8 , 72 , -4 1,8,74 , -28 ,8,77,-13,8,71 , - 1 3 , G 
5 , 15,8, 63 , 38 , , 69 , 40 , 8 , 72 ,41,8, 74 , 28 , 8 
13,8, 71,13,8, 38,7.5,7.5 



•a , w 



y 
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364 DATA -28 , 8 , 4 , -24 , 8 , 8 , -24 , -2 .-7.5? -24 :■ -3 . 5,6, --24 , -4 , 4 

365 DATA -24 , -3 .5,2;. -24 , 2 ,.5, -24 , 8 , 8 , -24 , 2 , . 5 , -24 .3.5,2 

366 DATA -24 ,4,4, -24 ,3.5, 6 , -24 ,2,7.5 , -6 . 5 , -6 , 1 4 . 5 

367 DATA -9,-6,14.5,-18,-3,14.5,-9,-3,15,-9,3,15 

368 DATA -19.-3, 14.5,-9,6, 14.5,-6.5,6, 14.5,-6.5,7.5, 13 

369 DATA -19,7.5, 12,-11.5,3.5,13,-12.5, 1, 13,-18, 1.5, 14.5 
379 DATA -12.5,-1,13,-19,-1.5,14.5,-11.5,-3.5,13 

371 DATA -19,-7.5,12,-6.5,-7.5,13 

388 FOR J=l TO I A 

390 READ I •'■'. J ':■< 

480 NEXT J 

405 DATA 1,2,3,4,5,6,7,8,9, 10, 11, 12, 1,0, 13, 14, 15, 16, 17, 18 

418 DATA 1 9 , 28 ,21,22,23,24, 13, 8 , 25 , 26 , 27 , 28 ,32,31, 30 , 29 , 25 

415 DATA , 33 , 34 , 35 , 36 , 48 , 39 ,38,37, 33 

417 DATA ,41, 42 , 43 , 44 , 45 ,41,8, 44 ,46,47, 48 , 8 

4 1 8 DATA 49 ,58,51,52,53 , 54 , 55 , 56 , 57 , 58 , 59 , 68 ,61, 62 , 63 

4 1 9 DATA 64 , 65 , 66 , , 50 , 67 , 68 , 69 ,70,54 , 8 , 69 ,73,72, 56 

428 DATA 8,71,55 , 8 , 65 , 74 , 75 , 76 , 77 , 6 1 , 8 , 76 , 88 , 79 , 59 , 8 , 78 , 68 , 8 

42 1 DATA 83 , 84 , 85 , 86 , 87 , 88 , 89 , 98 ,91,92, 93 , 94 , 83 , 82 , 84 , 8 

422 DATA 85 , 82 , 86 , 8 , 87 , 82 , 88 , 8 , 89 , 82 , 98 , 8 , 9 1 , 82 , 92 , 8 

423 DATA 93 , 82 , 94 , 8 , 95 , 96 , 97 , 98 , 99 , 1 88 , 181, 1 82 , 1 83 , 184, 1 85 

424 DATA 1 86 , 1 88 ,118,111,112 , 95 ,0,1 8 1 , 1 84 ,8,1 86 ,187,1 88 

425 DATA 1 85 , 8 , 96 , 111,8, 1 88 , 1 89 , 97 , 11 8 , 8 

426 DATA 77 , 78 , 79 , 8 , 78 ,71, 72 , 8 

429 R '■. 1 > =:■••: < 8 1 > s R < 2 > ••=',•' < 8 1 > " R < 3 > =Z < 8 1 > 
438 X < 8 ') =28 " V < 8 > =-288 s Z < 8 > = 15 

448 F=8. 15G=1 : REM F IS DISTORTION AND Q IS MAGNIFICATION 

458 S=l=T=IPsREM START AND FINISH POINTS TO ROTATE 

478 l..J=63sU=29!REM W IS WIDTH AND U IS HEIGHT 

475 DIM i...'A<U,W>sREM DIMENSION UIDEO ARRAV 

488 DIM SA(30,60>sREM ARRAV FOR SCREEN DUMP 

490 RETURN 

580 REM BLANK GRAPHICS 

510 PRINT CHR*<12;'; s REM BLANK SCREEN 

520 FOR J=-3968 TO -2049 

530 POKE J, 192 

540 NEXT J' 

558 RETURN 

688 Rem rotate points about axis 

618 if b*="x" then qosub 1780 
620 if b*="v" then gosub 1880 
638 if b*="z" then gosub 1988 

648 RETURN 

658 P 1 =A 1 -A2 s P2=A3~A4 

668 L=SQR < P 1 *P 1 +P2*P2 > 

678 IF P2=8 THEN A5=8-<PK8>*3 U 141593 
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686 IF Pl=@ THEN A5=SQH<P2>*1 . 579796 

698 I F P2< >0 AND P 1 < >© THEN A5=ATN < P2.-P 1 > - < P i< © > *3 .141 59" 

700 A5=A5+Es RETURN 

800 REM TRANSLATE X,V,Z TO l~L U 

810 FOR J=l TO IP 

820 DV=VCJ>-V<0>: IF DV<=0 THEN PRINT "DECREASE V<@> " : STOF 

830 DX=X < J > ~X < > 

840 DZ=ZCJ>--Z<0> 

850 U'i;.J>=ATN<F*DZ.--DV>!;REI1 UERTICAL SCREEN POSITION 

860 H<J>=ATN<F : *DX '"DV) " REM HORIZONTAL SCREEN POSITION 

870 NEXT ,T 

880 M I NU=U < 1 > s M AXU=U < 1 > 

890 M I NH=H < 1 .:■ 5 MAXH=H < 1 .:■ 

900 FOR J=l TO IP 

910 IF 'vKJXMINU THEN MINU=U<J> 

920 IF UCKOMAXU THEN MAXU=U < J > 

930 IF HCJXriINH THEN MINH=H'::.J> 

940 IF H<J>>MAMH THEN MAXH=H<J> 

950 NEXT J 

960 DH=MAXH~MINH 

970 DU=MAXU-M I NU 

980 FOR J=l TO IP 

990 H < J > =G* < H (. J ':< -M I HH > /DH*!j.l 

1 008 U < J > =G* < U < J > ~M I HU > ■•■• DU*IJ 

1110 NEXT J 

1120 RETURN 

120O REM DRAW LINES CONNECTING POINTS 

1210 FOR ,T=1 TO IA-1 

1220 IF I(J)=9 OR I(J+1)=8 THEN 1340 

1230 HH=H<ICJ+i::>>-~H'::i':;j::'> 

1 240 U 1 ,^ 1 , 1 < I < J+ 1 .:■ ';.> -i..J < I >; J > > 

1250 SN=SGN<HH> 

1260 IF SN=0 THEN 1360 

1270 M=W.-HH 

1 280 B=U < I < J > > -M*H < I < J > > 

1 290 8P=SQR < UU*UU+HH*HH > 

1300 FOR IOH <. I <. J > > TO H<IOJ+l>> STEP 0„3*HI-i'SP 

1310 P=M*K+B 

1320 GOSUB 150O 

1339 NEXT l< 

1 340 NEXT J 
1 350 RETURN 

1360 REM SLOPE EQUALS INFINITY 

1370 K=H(I(J)) 

1 38© I F SGN < UU > =© THEN P=H < I < J > > s GOSUB 1 500 s GOTO 134© 

1 390 FOR P=U < I < .J > > TO U >' I < J+ 1 > > STEP SGN ■': UU > -'5 
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14@0 GOSUB 15Q0 

1410 NEXT P 

1420 GOTO 1346 

1500 REM PLOTTING SUBOUTINE 

1510 IF P>U OR P<@ OR IOUI OR l<<8 THEN RETURN 

1 520 Q= I NT < K > -2 1 1 2-64* I NT (. P '> 

1530 IF Q>-2@49 OR GK-396S THEN PRINT "OFFSCREEN" : STOP 

1540 Cl = 19242--.::2*'::2-INT<3*<P 1NT(P> > > > + INT'::2*<l<-INT'::i<> > > > 

1550 POKE Q, <PEEK'::Q> OR Cl> 

1555 IF J<25 OR J>48 THEN UA<P,K> = CPEEK>;Q> OR Cl> 

156© RETURN 

1600 REN ROTATION, TRANSLATE, BLANK SCREEN GRAPHICS, DRAW LINES 

1610 GOSUB 680 s GOSUB 880: IF ID=8 THEN GOSUB 588 

1628 IF Il>=8 THEN GOSUB 1288: GOSUB 5888 

1638 RETURN 

1788 REN X-AXIS ROTATION 

1718 FOR .J=S TO T 

1 728 A 1 =V < J > : A2=R < 2 > s A3=Z (. J > 5 A4=R < 3 > 

1730 GOSUB 650 

1 748 V < J > =L*COS •:: A5 > +R < 2 > s 2 •■. J > =L*S I N < A5 > +R < 3 > 

1750 NEXT J s RETURN 

1888 REM V-AKIS ROTATION 

1818 FOR J=S TO T 

1 828 A 1 =y. <'". J ':■• 5 A2=R •■. 1 > s A3=Z (. J > s A4=R ( 3 > 

1 838 GOSUB 658 

1 848 '.■< < J > =L*COS < A5 > +R < 1 > 5 Z < J > =L+S I N C A5 > +R < 3 > 

1858 NEXT J: RETURN 

1988 REM 2- AX IS ROTATION 

1918 FOR J=S TO T 

1 928 A 1 =X < J > s A2=R < 1 > s A3=V < J > 5 A4=R >-. 2 > 

1938 GOSUB 658 

1 948 X < J > =L*COS < A5 > ■+ R < 1 > s V C J > =L*S I N < A5 > +R < 2 > 

1958 NEXT J s RETURN 

2000 REM INSTRUCTIONS 

2010 PRINT CHR*<12>; : REM CLEAR SCREEN CBOME CAN USE CLS>. 

2020 PR I NT SPRINT 

2030 PR I NT " COMMAND " , " DESCR I PT I OH " , , " EXAMPLE " 

2048 PRINT " - " , " — - " , , " - ■•■• ' ' 

2045 PRINT 

2050 PRINT "A HN","ROLL THE SPACECRAFT" , "A 1.2" 

2068 PRINT "B NN", "VAW THE SPACECRAFT" , "B -l.Q" 

2070 PRINT "C NN", "PITCH THE SPACECRAFT" , "C 0.22" 

2075 PRINT 

2080 PRINT "D NH«',"MOUE CRAFT FORWARD OR BACK" , "D 23" 

2090 PRINT "E NH","MOUE SPACECRAFT SIDEWAVS","E -12" 

2100 PRINT "F NN", "MOUE- CRAFT UP OR DOWH","F 19" 
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2195 
2118 
2120 
2125 
2130 
2 1 40 

3000 
301© 

302© 
3030 
3040 
3050 
3860 
3070 
3080 
3090 

4000 

4005 

4010 

4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 

5090 
5010 

5020 
5180 
5110 
512© 
5289 
5210 
5228 
5380 
5318 
5328 
5488 
54 1 8 
5415 
5428 

5438 
5448 



THEN 3988 



NEXT P 



PRINT 

PRINT "G NN", "MOUE PORT CARGO BAV DOOR'S "G 1.3" 

PRINT "H UN'S "MOUE STARBOARD BAV DOOR","H 8.2" 

PRINTS PRINT 

PRINT: PRINT "ALL MOTIONS ARE FROM VOUR POINT OF UIEW. 

RETURN 

REM DEFINE BLOCK GRAPHICS 

FOR J=-512 TO -is POKE J , S : NEXT J 

FOR J=l TO 63:N=J*8-512 

POP; t = -j jo 6 5 M=2 '■"•:; 1-1 ':• " IF '"J AND M>=8 

N 1 =N- < I >2 > *3 - < I >4 > *2 

H2=H+2-<: I >2>*2~< I >4>*3 

N3=248+ < I NT C I -"2 > = I s2. > *225 

FOR P=N1 TO N2 SPOKE P, CREEK <P> OR N3>: 

NEXT I, J 

RETURN 

REM 

S=lsT=IP 

IF M1*="A" 

IF M1*="B" 

IF M1*="C" 

IF M1*="D" 

TF M1*="F" 

IF M1*="F" 

IF M1*="G" 

IF M1$="H" 

RETURN 

REM RECORD MANIPULATIONS 

PTR=PTR+ 1 s SN ■:: PTR > =E : STL < PTR > = ASC < M 1 * > 

RETURN 

REM MOUE IN THE X 

FOR J=S TO TsXCJ>=X' 

GOSUB 5000 s RETURN 

IN THE V DIRECTION 



INTERPRET COMMANDS 




THEN 


B$="V" s GOSUB 1600s GOTO 


4898 


THEN 


B$="2"s GOSUB 1688s GOTO 


4898 


THEN 


Bf= " X " s GOSUB 1 688 s GOTO 


4898 


THEN 


GOSUB 51 00 s GOTO 4898 




THEN 


G SUB 5 2 8 s G T 4 8 9 8 




THEN 


GOSUB 5300 s GOTO 4898 




THEN 
THEN 


GOSUB 5588 s GOTO 4098 
GOSUB 5488 





DIRECTION 
:,T>+EsNEXT 



REM 
FOR 



MOUE 



J=S TO T s V •:: J ;:■ = V < .J y +E s NEXT J 



GOSUB 5888 
REM MOUE 
FOR J=S TO 

GOSUB 
REM 



RETURN 

IN THE Z DIRECTION 

T s Z ( ". J y =Z '"■'. J y +E s NEXT 

5 8 9 8 " R E T U R N 

MOUE CARGO BAV DOORS 



b=.io S | =<+t) s ti*= " , :: , " iK '■. J. ..' — :--. :: . '. -,>o .-' • r-. \ ^ .•• — o t ••. oo .-• 

R<3>=SZ<36>sREM FOR STARBOARD BAV DOORS 

FOR J*=S TO T s X < J > =8X '■. J > 8 V < J > ~S V < J > s Z < J ;« =SZ < J > 

NEXT J s GOSUB 688 s R < 1 > ~X •■. 8 1 > : R 1 2 > = V < 8 1 > : R < 3 > "-Z < 8 1 > 

ID=lsFOR K=l TO PTR 

M 1 *=CHR$ < STL. < K > > : E~SN < K > 
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5458 GOSUB 4919s NEXT KK: ID=© 

5469 GOSUB 899 s GOSUB 599! GOSUB 1298 s RETURN 

55 1. 9 S=25 : T=32 " B$-~ " X " " R < 1 > =SX < 28 > : R < 2 > =S V < 28 > 

5529 R < 3 > =S2 C 28 > : GOSUB 5428 s RETURN 

5529 GOSUB 5428 a RETURN 

6999 REM OPTIONAL SCREEN DUMP TO PRINTER 

6919 FOR .J==l TO 30 s FOR I<=1 TO 68 

6028 Srt < J , l< > =PEEK < 64* < -J- 1 ::' + K--3969 > : NEXT K , -J 

6838 N 1 =3*2-- 1 NT < 6*RND < 1 > > 

6840 POKE 268.-8 s POKE 261. 8s POKE 8, 62s POKE 1.-27 

6850 POKE 2 , 285 s POKE 3 , 1 2 s POKE 4 , 224 s POKE 5 , 28 1 

6060 XX-USR < 8 > s POKE 1 , 65 s XX--USR < 8 > ! POKE: 1 , 2 s XX=USR < 8 > 

6878 FOR .J-i TO 38s FOR |_=-8 TO -1 

6880 FOR l<>8 TO 59s IF l<- 15^1NTac-'15> THEN GOSUB 6128 

6898 CN-PEEI<<L-8*'::255-Si-i'::J ? K+l>>>;F0R M=7 TO 8 STEP -1 

6 1 88 POKE 1 , N 1 *SGN < CN AND 2"*M > : XX==USR <: 8 > s NEXT M , K 

6 1 1 8 POKE 1,13s XX=I_ISR <■ 8 ■■' s NEXT L , J : POKE 1,12s XX=USR < 8 > : RETURN 

6 1 28 POKE 1 , 27 s XX=USR < 8 > s POKE 1 , 75 s XX=USR < 8 > 

6 1 38 POKE 1 , 1 28 s XX=USR <. 8 > : POKE 1 , 8 : KX==USR < 8 > : RETURN 

READS-' 



We now look at the lines of the program. Lines 
10-35 give the remarks about the program. Line 40 
clears the video screen. Line 41 prints three blank 
lines and lines 42-44 print out the name of the 
program on the screen. Line 45 prints three more 
blank lines, and then line 46 asks whether or not 
you want to see the instructions for die program. If 
the answer is yes, line 47 sends program control to 
the subroutine at line 2000. After three more print 
statements in line 48, the computer tells us that it is 
setting up the program (line 49). Line 50 is a sub- 
routine call to line 3000, which defines the block- 
type graphics. Delete this line if your computer 
uses the set or reset commands, if it cannot define 
graphic characters, or if it doesn't conform for any 
reason. Line 60 is a subroutine call to line 300, 
which reads the coordinates of the data points and 
the lines that connect them, dimensions the arrays, 
and sets variables. Line 65 contains the subroutine 
calls that display the first figure. Line 70 requests 
you to enter the command to manipulate the com- 
puter model. Line 75 breaks the reply up into the 
alphabetic and numerical portions and assigns them 
to Ml$ and E, respectively. Line 80 is a subroutine 
call to line 4000, which interprets the commands. 



Line 90 is an optional line, which should be used 
only when you want a hard copy of the figures on the 
screen. It is a call to a subroutine that sends the 
image to the printer. Line 100 goes to line 70, 
where the next command is requested. 

Lines 300-490 contain the statements that ini- 
tialize the program. Line 300 is the remark state- 
ment for the heading. Line 305 says that IP, the 
number of points, is 112 and IA, the number of line 
connections, is 187. PTR is the index of a stack 
that we are going to use when operating the cargo 
bay doors. ID is a variable that indicates the level of 
subroutine calls, also for the cargo bay door opera- 
tion. Line 310 dimensions the line connection ar- 
ray, I, theX, Y, and Z-coordinate arrays, andR, V, 
and H. Line 315 dimensions an array for a stack of 
command letters, and line 316 dimensions the ar- 
rays that contain the coordinates of the points at the 
start of the program, for use with the door manipu- 
lations. Line 318 contains the array for the stack of 
numbers also used for the doors. The loop in lines 
320-340 reads in the data for the coordinates at the 
start of the program. 

Lines 345-371 contain data statements for the 
X, Y, and Z coordinate of each point. Lines 380-400 
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Fig. 4-2. Perspective line drawing of house (three views). 
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Sta. 



read in the connection array from the data state- 
ments in lines 405-426. Line 429 sets the points 
about which the craft will rotate. For all three axis 
the coordinate of trie point is 81. Line 430 sets the 
viewpoint's coordinates, and line 440 sets F and G. 
Line 450 sets the values of S and T, the first and the 
last points that we want to rotate. Line 470 sets the 
width and height of the video screen, minus 1. You 
may change this for your computer. If your com- 
puter uses set and reset, you may want to use 127 
and 47. Line 480 dimensions an array for a screen 
dump. Line 490 returns control back to line 65. 

The subroutine in lines 500-550 blanks the 
screen dump. Line 490 returns control back to line 
65. 

The subroutine in lines 500-550 blanks the 
screen. Another method of blanking the screen is to 
use a loop that resets J and K. Where J is the loop 
from to U and K is a nested loop from to W. 
Other computers may require a different technique. 

The subroutine in lines 600-700, which uses 
subroutines at lines 1700, 1800, and 1900, rotates 
points about an axis in exactly the same way as the 
rotation subroutines that we saw earlier did. How 
ever, this subroutine is faster. Lines 800- 1120 form 
a subroutine that translates the points into vertical 
and horizontal positions for use on the screen. It is 



the same as ones that we've seen before. Lines 
1200-1420 contain the familiar subroutine that 
draws lines connecting points. Lines 1500-1560 are 
a plotting subroutine that is rather system-specific. 
If your computer uses set, you might change lines 
1520-1555 to SET(K.P). This command turns on a 
screen element on some systems. 

Lines 1700-1750 are part of the rotation sub- 
routine that rotates points around the X-axis. Lines 
1800-1850 are part of the subroutine that rotates 
points around the Y-axis, and lines 1900-1950 ro- 
tate points about the Z-axis. Lines 2000-2140 form 
the subroutine that prints the instructions. The first 
six commands move the spacecraft using our refer- 
ence system. If we type A 1.5, the model turns 
about 90 degrees counterclockwise on the screen. 
Lines 3000-3090 form a subroutine that defines 
user-defined graphic characters. It may not work on 
your system, or you may not need them as we 
stated earlier. I won't explain how these state- 
ments are defined, except to say that they create 
graphic characters that are a 3 x2 rectangular block 
of squares. 

The commands for the program are interpret- 
ted by the subroutine in lines 4000-5520. Lines 
4010-4080 transfer control to appropriate sub- 
routine for the letter entered. Lines 5000-5020 
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Fig. 4-3. Low-resolution video display of a space shuttle model. 
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Fig. 4-4. Low-resolution video display of a space shuttle model as it is rotated. 
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Fig, 4-5. High-resolution plots of a space shuttle model. 
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record the commands if they are the motion of the 
entire craft, i.e., letters A-F. Lines 5100-5120 are 
for motion in the X-direction; 5200-5220 are for 
motion in the Y~direction; 5300-5320 are for motion 
in the Z-direction. The number entered is simply 
added to each points' coordinates in whatever di- 
mension it is moved. 

Lines 5400-5520 are statements for the opera- 
tion of the cargo bay doors. A positive number will 
cause the doors to open and a negative number will 
cause them to close. These numbers should not 
have values outside of the range of - 1.6 to 1.6 or 
the doors will appear to pass through the wings. We 
should also note that you should not use large num- 
bers when moving the spacecraft as the points could 
shift off the screen, out of the field of vision and you 
would be lost. 

When a command is received to operate the 
starboard bay door, the program will run through 
lines 5400-5460. With the port door, lines 5500- 
5520 are called. They in turn also call lines 5420- 
5460 of the starboard call. This is simply a space- 
saving technique since the routine is the same; only 
the points involved and the p oints of rotation are 
different. In line 5410 S is set to 33 and T is set to 
40. These are the first and last points of the star- 
board bay door. Rotation is about the X-axis since 
that is the axis they rotate about at the start of the 
program. Point 36 is the point of one of the hinges of 
the door and we use that point for the axis of rota- 



tion. On the starboard door, we set E equal to 
negative E since a positive number opens the door. 
Line 5420 defines the points of the door as their 
original values at the start. Line 5425 performs the 
opening rotation on the door and sets the point of 
rotation back to the original 81. Lines 5430-5460 is 
a stack reading loop that manipulates the points 
through all the commands that the computer has 
received up to this point. This is the method of 
putting the doors back on the model. 

What we actually accomplish with this sub- 
routine is to rotate the cargo bay doors about an 
arbitrary axis. We rotated the doors about their 
original axis, the X-axis, then went through the 
stack of all the manipulations to move the points of 
the doors back to where they should now be relative 
to the rest of the model. 

Lines 6000-6130 are the subroutine for the 
optional screen dump to printer. We will not dis- 
cuss it here as we have already covered it in other 
programs. 

A High-Resolution 

Perspective Line Program— Program 1 1 

This program is the same, in many respects, 
as the low-resolution version. However, the 
images created by this version are meant to be 
printed on paper. No pictures appear on the video 
display. The program draws a much finer line when 
printing the pictures. 



19 REM HIGH-RESOLUTION SPACE SHUTTLE SIMULATION 
2@ REM WRITTEN BV TIMOTHV J. O'MALLEV 

30 REM COPYRIGHT 1982, TAB BOOKS IMC. 

35 REM 

40 PRINT CHR*<12>5 

41 PR I NT SPRINT SPRINT 

42 PRINT TAB-: 15> 5 "INTERACT I UE SPACE SHUTTLE SIMULATION" 

43 PRINT TAB<18>5 "WRITTEN BV TIMOTHV J. O'M ALLEY" 

44 PRINT T AB CI 8 > 5 "COPYRIGHT 1982.- TAB BOOKS INC." 

45 PR I NT s PR I NT s PR I NT 

46 INPUT "DO VOU WANT INSTRUCTIONS <VES OR NOV 3 AN* 

47 IF AN*="VES" THEN GOSUB 2999 

48 PR I NT s PR I NT s PR I NT 

49 PRINT "THE COMPUTER WILL NOW SET UP THE PROGRAM. " 
60 GOSUB 300s REM INITIALIZE VARIABLES 
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65 QOSUB 588: GOSUB 888s GOSUB 1288s GOSUB 6080 s REM D I SPLAV START 

70 INPUT "COMMAND" 3 CM* 

75 M 1 *=LEFT* < CM*, 1 > s E=U AL < R I GHT* < CM* , < LEH < CM* > -2 > > > 

80 GOSUB 4000 : REM INTERPRET COMMANDS 

90 GOSUB 6000 s REM PRINT OUT IN HIGH RESOLUTION 

100 GOTO 70 

300 REM INITIALIZE VARIABLES 

305 I P= 11 2 : I rt= 1 87 : PTR=8 : I D=8 

318 DIM I < I A> : . X< IP •' , V< IP> , Z< IP> , RC3> , L,K IP> , H< IP> 

315 DIM STL <58> 

3 16 D I M SX < 1 P > , SV < I P > , SZ < I P > 
318 DIM SN<58> 

328 FOR J=l TO IP 

330 READ X>:J>,\><J>,Z<J> 

335 sx < .j > =y. < j > " s v ■:: j > = v < .j > s sz < .j > -z ■■; J > 

348 NEXT J 

345 DATA 0,0,0, 8,3.75,1, 8,6.5,3.75, 8,7.5,7-5 

346 DATA 8 , 6.5, 11. 25 , 8 , 3 . 5 , 1 4 , 8 , 8 , 15, 8 ,-3.75, 1 4 

347 DATA 8,-6.5,11.25, 8,-7.5,7.5, 8, -6. 5, 3. 75, 8, -3. 75, 1 

348 DATA 68,8,8, 68,3.75,1,68,6.5,3.75,68,7.5,7.5 

349 DATA 68 ,6.5,11.25, 68 , 3 . 75 ,14, 68 , 8 , 1 5 , 68 , ~3 . 75 , 1 4 

358 DATA 68 , -6 . 5 , 11. 25 , 68 ,-7.5,7.5, 68 , -6 . 5 , 3 . 75 , 68 , -3 . 75 , 1 

35 1 DATA 8,8,15,8,-3. 75 , 14,8, -6 = 5 , 11 = 25,8,-7=5,7=5 

352 DATA 68 , 8 , 15, 60 , -3 .. 75 , 14, 68 ,-6.5, 11.25, 68 , -7 . 5 , 7 . 5 

353 DATA 8, 8, 15,8,3. 75, 14, 8,6. 5,11. 25,8, 7.5,7.5 

354 DATA 68 , 8 , 15, 68 , 3 . 75 , 1 4 , 68 , 6 . 5 , 11. 25 , 68 , 7.5,7. 5 

355 DATA 62 , 8 , 15,77,8, 45 ,87,8, 42 . 5 , 82 , 8 , 28 

356 DATA 77 , 8 , 15, 77 , 8 , 28 , 85 , 8 , 48 . 5 , 86 , 8 , 48 . 5 

357 DATA 8 , -7 .5,8,31,-14.5, 8 , 39 , - 1 7 , 8 , 68 , -37 , 8 , 66 , -48 , 8 

358 DATA 76 , -42 , 8 , 79 . 5 , -28 , 8 , 83 , -13, 8 , 93 , -9 , 8 , 93 , 9 , 8 

359 DATA 83 , 13,8, 79 . 5 , 28 , 8 , 76 ,42,8, 66 , 48 , 8 , 68 , 37 , 8 
368 DATA 39 ,17,8,31 , 1 4 . 5,0,0,7.5, 8 , 4 1 . 5 , - 15,8,63, -38 , 8 

36 1 DATA 69 , -48 , 8 , 72 , -4 1 , 8 , 74 , -28 , 8 , 77 , ■■- 13,8,71, ■- 13,8 

362 DATA 41.5,15,8, 63 , 38 , 8 , 69 , 48 , 8 , 72 , 4 1,8,74 , 28 , 8 

363 DATA 77 , 1 3 , 8 , 7 1 , 1 3 , 8 , 38 , 7 . 5 , 7 „ 5 

365 DATA -24 ,-3.5,2, -24 , -2 , . 5 , -24 , 8 , 8 , -24 , 2 , . 5 , -24 ,3.5,2 

366 DATA -24, 4, 4, -24, 3 » 5, 6, -24, 2, 7. 5, -6. 5, -6, 14. 5 

368 DATA -18,3, 14.5,-9,6, 14.5,-6.5,6, 14.5,-6.5,7.5, 13 

369 DATA ~i8, 7. 5, 12, -1 i . 5, 3. 5, 13, -12. 5, 1 , 13, -18, 1 . 5, 14. 5 

370 DATA -12.5,-1, 13,-10,-1.5, 14.5,-11.5,-3.5, 13 

371 DATA -10,-7.5,12,-6.5,-7.5,13 
380 FOR J=l TO I A 

398 READ I(J) 
488 NEXT J 
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495 
41Q 

415 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
429 
436 
440 
450 
470 
475 
490 

500 

5 1 
520 
530 
540 
550 

600 

610 
620 
636 
640 
650 
660 
670 
680 
690 

700 
800 

810 
820 
838 
840 
858 
860 
878 
888 



DATA 1, 2, 3, 4, 5, 6* 7, 8, 9, 18, 11, 12* 1 * 0, 13* 14, 15, 16, 17, 18 

DATA 1 9 , 28 ,21,22,23,24,13, 8 , 25 , 26 , 27 , 28 ,32,31, 38 , 29 , 25 

DATA , 33 , 34 , 35 , 36 , 48 , 39 , 38 , 37 , 33 

DATA 8,41 , 42 , 43 ,44,45, 4 1,8, 44 , 46 , 47 , 48 , 8 

DAT A 49 , 58 , 5 1 , 52 , 53 , 54 , 55 , 56 , 57 , 58 , 59 , 68 ,61, 62 , 63 

DATA 64,65, 66 , 8 , 58 , 67 , 68 ,69,78,54, 8 , 69 ,73,72,56 

DATA 8 ,71, 55 , 8 , 65 , 74 , 75 , 76 , 77 ,61, 8 , 76 , 88 , 79 , 59 , 8 , 78 , 68 , 8 



DATA 83,84.- 



I -i OO rt O | 



<9 , 98 ,91.- 92 , 93 , 94 , 83 , 82 , 84 , 8 



DATA 85 , 82 , 86 , 8 , 87 , 82 ,88,8,89, 82 ,98,8,91,82,92,8 

DATA 93 , 82 , 94 , 8 , 95 , 96 , 97 , 98 , 99 , 1 88 ,181,1 82 , 1 83 , 1 84 , 1 85 

DATA 1 86 , 1 88 ,118,111,112,95,8,181,1 84 , 8 , 1 86 , 187,1 80 

DATA 1 05 , , 96 ,111, , 1 08 , 1 09 , 97 , 1 1 , 8 

DATA 77 , 78 , 79 , 8 , 78,71, 72 , 

R < 1 > -';■< < 8 1 > 5 R < 2 ':■• = V <"". 8 1 > s R < 3 > -=Z < 8 1 > 

X <. 8 > =2© « V <-. 8 > =-200 s Z < > = 1 5 

F=8„ is 8=1 5 REM F IS DISTORTION AND G IS MAGNIFICATION 

S=lsT=IPsREM START AND FINISH POINTS TO ROTATE 

W=253sU=17sl,.l2=127 

DIM UA'::U,l...l>sREM DIMENSION UIDEO ARRAY 

RETURN 

REM BLANK ARRAV 

PRINT CHR$<12::', s REM BLANK SCREEN 

FOR JS=8 TO Us FOR KS=8 TO W 

UACJS, KS>=8 

NEXT KS,JS 

RETURN 

REM ROTATE POINTS ABOUT AXIS 

IF B*="X" THEN GOSUB 1788 

IF B*="V" THEN GOSUB 1880 

IF B$="Z" THEN GOSUB 1980 

RETURN 

P 1 = A 1 - A 2 s P 2 = A 3 - A 4 

L=SQR •:: P 1 *P 1 +P2*P2 > 

I F P2=8 THEN A5=0-- < P 1 < O > *3 . 1 4 1 593 

IF P1=0 THEN A5=SGN>::P2>*1 U 578796 

I F P2< >8 AND P 1 < >8 THEN A5=ATN < P2 /P 1 > - < P 1 < 8 > *3 .141 593 

A5=A5+E"s RETURN 

REM TRANSLATE X,V,Z TO H, U 

FOR J=l TO IP 

PV=V < J > •- V < 8 > s I F D'r'< =8 THEN PR I NT " DECREASE V <. 8 > " " STOP 

DX=X<-J>-X<8> 

DZ=Z< J>-Z<8> 

U , : ; j > = ATN •:: F*DZ- "DV > s REM UERT I C AL SCREEN POS I T 1 ON 

H <. J > = ATN < F*DX.- DV > : REM HOR I ZONT AL SCREEN POS I T I ON 

NEXT J 

M I NU=U < 1 > s M AXU=U < 1 > 



71 



890 M I NH=H < 1 > 5 MAXH=H < 1 > 

988 FOR .J=l TO IP 

918 IF UCJXMIHU THEN MINU=U<J> 

928 IF UCJ>>MAXU THEN MAXU=U< J> 

938 IF HCJXMINH THEN MINH=H<J> 

948 IF l-K.J>>MAKH THEN M AXH=H <-. J > 

958 NEXT -J 

968 DH=MAXH-MINH 

978 DU=MAXl'-MINU 

988 FOR J=l TO IP 

998 H < 3 > =G* < H < J > -M I HH > .'DH*!,..! 

1 888 U < J > =G* < U < J > - M I NU > .-'DU*U 

1118 NEXT J 

1128 RETURN 

1288 REM DRAW LINES CONNECTING POINTS 

1218 FOR J=l TO IA-1 

1228 IF I(J)=e OR KJ+1)=0 THEN 1348 

1 238 HH=H < I < J+ 1 !:■ > -H < I < J > > 

1 248 uu=u < i < j+ i > > -u < i ■; j > > 

1258 SN=SGN<HH> 

1268 IF SN=8 THEN 1368 

1278 M=UU.-HH 

1 288 B=U < I < J > > -M*H < I < J y y 

1 2 9 S P = S Q R < U U * U U + H H * H H > 

1308 FOR K=H'::i<J>> TO H < I <. J+ 1 > > STEP 8. 3*HH.-'8P 

1310 P=M*K+B 

1320 GOSUB 15O0 

1330 NEXT l< 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INFINITY 

1370 K=l-K I < .J > > 

1 380 I F SGN < W > =8 THEN P=H '-- 1 <■. J > > : GOSUB 1 588 * GOTO 1 340 

1390 FOR P=U(I';J)) TO '.KICJ + ILO STEP SGI-KUUX.M2 

1400 GOSUB 1588 

141© NEXT P 

1428 GOTO 1348 

1588 REM PLOT i'TNG SUBOUTINE 

151.8 IF P>IJ OR PO~i OR !<>l.,l OR K<0 THEN RETURN 

1 528 U 1 = I NT < P > : 02= I NT < K > 

1 53© UA •' U 1 ? 02 ) --UA C U 1 :■ 02 !> OR 2 ''' I NT '"' 1 2* ( P~ v 1 ) > 

1568 RETURN 

1688 REM ROT AT I OIL TRANSLATE, BLANK SCREEN GRAPHICS, DRAW 

LINES 
1618 GOSUB 608s GOSUB 808; IF ID=8 THEN GOSUB 588 
1628 IF ID=9 THEN GOSUB 1288s GOSUB 5888 
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1639 RETURN 

1788 REM X AXIS ROTATION 

1710 FOR ,T=S TO T 

1 720 A 1 =V < J > : A2=R < 2 > : A3~Z < .J > s A4=R •:: 3 > 

1738 GOSUB 658 

1 748 V < J ;■ =L*COS < A5 > +R < 2 > : Z >■. J '? =L*S I N < A5 > +R < 3 > 

1750 NEXT J : RETURN 

1S80 REM V--AXIS ROTATION 

1818 FOR J=S TO T 

1 828 A 1 =X C J ::• : A2=R < 1 ::■ s A3=Z < J' > s A4=R < 3 > 

1 838 GOSUB 658 

1 848 X < J > =L*CQS < A5 > +R < 1 > s Z < J > =L*S I N >■. A5 > +R < 3 > 

1858 NEXT J! RETURN 

1988 REM Z--AXIS ROTATION 

1918 FOR J=S TO T 

1 920 A 1 =X ■:: J :> : A2=R < 1 > "> A3= V < J > : A4=R < 2 > 

1930 GOSUB 650 

1 940 X >:. J > =L*COS < A5 > +R < 1 > s V < J ;■ =L*S I N < A5 > +R < 2 > 

1950 NEXT J : RETURN 

2800 REM INSTRUCTIONS 

2020 PR I NT: PR I NT 

2838 PR I NT "COMMAND " , " DESCR I PT I ON " .- » " EXAMPLE " 

2848 PR I NT " - " * " — " > :■ " — " 

2845 PRINT 

2858 PRINT "A NN","ROLL THE SPACECRAFT'S "A 1.2" 

2868 PRINT "B NN'S"VAW THE SPACECRAFT'S "B -1.9" 

2878 PRINT "C NN'S "PITCH THE SPACECRAFT'S"!:: 8.22" 

2875 PRINT 

2888 PRINT "D NN", "MOUE CRAFT FORWARD OR BACK'S "D 23" 

2898 PRINT "E NN'S "MOUE SPACECRAFT SIDEWAYS", "E -12" 

2188 PRINT "F NH'S "MOUE CRAFT UP OR DOWN'S "F 19" 

2185 PRINT 

2118 PRINT "G NN'S "MOUE PORT CARGO BA'v' DOOR'S "G 1.3" 

2128 PRINT "H NN'S "MOUE STARBOARD BAV DOOR'S "H 0.2" 

2125 PRINT! PRINT 

2130 PRINTS PRINT "ALL MOTIONS ARE FROM VOUR POINT OF UIEW. " 

2148 RETURN 

4888 REM INTERPRET COMMANDS 

4885' S=l:T=IP 

4818 IF M1$="A" THEN B*="V"s GOSUB 1 688 s GOTO 4898 

4028 IF M1*="B" THEN B*="Z"s GOSUB 1688s GOTO 4898 

4838 IF M1$="C" THEN Bt="X"s GOSUB 1688s GOTO 4898 

4848 IF M1*="D" THEN GOSUB 5 180s GOTO 4898 

4858 IF M1*="E" THEN GOSUB 5280s GOTO 4898 

4868 IF M1*="F" THEN GOSUB 5380s GOTO 4898 

4878 IF M1*="G" THEN GOSUB 5500s GOTO 4898 



73 



4889 IF I11*="H" THEN GOSUB 5488 

409© RETURU 

5080 REM RECORD MANIPULATIONS 

50 1 8 PTR=PTR+ 1 " SN <:. PTR > =E s STL < PIT": > = ASC < M 1 * > 

5020 RETURN 

5188 REM MOUE IN THE X DIRECTION 

5 1 1 FOR ,T=S TO T : X k J > =X ( J > +E s NEXT J 

5128 GOSUB 5800 s RETURN 

5200 REM MOUE IN THE V DIRECTION 

5210 FOR J=S TO T !'•■•' CJ >=V':: J ;>+Es NEXT J 

5228 GOSUB 5008 s RETURN 

5388 REM MOUE IN THE Z DIRECTION 

5318 FOR J=S TO T 5 Z <. J > =Z < -J > +E s NEXT ,J 

5328 GOSUB 5888 s RETURN 

5488 REM MOUE CARGO BAV DOORS 

54 1 8 S=33 s T=49 " B*= " X " " R < 1 > =SX < 36 > s R < 2 > =SV < 36 > 

5415 R<3>=SZ<36::>sREM FOR STARBOARD BAV DOORS 

5428 FOR J=S TO T s X < J > =SX < J > 5 V ( J > =SV < J > 3 Z < J > =SZ < J > 

5425 NEXT J s GOSUB 688 s R < 1 > -~X < 8 1 > s R < 2 > ='•.•' < 8 1 > s R < 3 > =Z C 8 1 > 

5438 I D= is FOR KK=1 TO PTR 

5448 M 1 *=CHR$ < STL < Kl< > > s E=SN < KK > 

5458 GOSUB 4818s NEXT Kl<s ID=8 

5468 GOSUB 888s GOSUB 588s GOSUB 1288: RETURN 

5588 REM MOUE PORT' CARGO BAV DOOR 

55 1 8 3=25 s T=32 s B*= " X " : R >■ 1 > =SX < 28 > : R ( 2 > =SV (. 28 > 

5528 R < 3 > =SZ \ 28 ) • GOSUB 5428 s RETURN 

6888 REM HIGH-RESOLUTION PRINTER 

6885 GOSUB 7888s REM SET UP SUBROUTINE FOR PRINTER 

6818 FOR ,TS=U TO STEP - 1 s FOR MS=11 TO 8 STEP -1 

6828 BS=INT<2'--MS>aF0R LS=8 TO 1 s GOSUB 6858 

6838 F8R KS=LS*W2 TO LS+W2+W2-1 : POKE 1,SGH<BS AND UACJS, ICEO' !:• 

6848 XX=USR < 8 > s NEXT KS , LS : POKE 1.13s XX=USR < 8 > s NEXT MS , JS 

6845 RETURN 

6858 POKE l,2?s XX=USR < 8 > s POKE 1 , 75 : XX==USR ( 8 > s POKE 1 , 1..J2 

6868 XX=USR ■:." 8 > s POKE 1,8s XX=IJSR < 8 > : RETURN 

7888 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 

7810 POKE 268, 8 : POKE 26 1,0s POKE 8, 62s POKE 1,27s POKE 2,285 

7828 POKE 3, 12s POKE 4, 224s POKE 5, 281 s XX=USR03> s POKE 1 •. r-.p; 

7838 XX=USR < 8 > s POKE 1,1s XX==IJSR < 8 > : RETURN 

READS' 

Let's look at the lines that are different. Line because we are using a different plotting sub- 

10 indicates that this is a high-resolution program, routine. This plotting subroutine is the same type 

We have deleted line 50, lines 3000-3090, and lines as the one that we used when we drew the perspec- 

6070-6130, along with lines 2010, 1540-1555, and tive line drawing of the house. Line 470 was 

line 480. Lines 1520 and 1530 have been changed changed to make W=253, U=18 and W2=127. We 
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INTERACTIVE SPACE SHUTTLE SIMULATION 
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DO VOU WANT 


INSTRUCTIONS <VES OR NO>? VES 






COMMAND 


DESCRIPTION 


EJ 


:ample 


A HH 
B HH 
C HH 


ROLL THE SPACECRAFT 
VAW THE SPACECRAFT 
PITCH THE SPACECRAFT 


A 
B 

C 


1.2 

-1.0 

. 22 


D HH 
E HH 
F HH 


MOUE CRAFT FORWARD OR BACK 
MOUE SPACECRAFT SIDEWAYS 
MOUE CRAFT UP OR DOWH 


D 
E 
F 


19 


G NN 
H HH 


MOUE PORT CARGO BAV DOOR 
MOUE STARBOARD BAV DOOR 


G 
H 


1.3 
. 2 


ALL MOTIONS 


ARE FROM VOUR POINT OF UIEW. 






THE COMPUTER WILL NOW SET UP THE PROGRAM. 







Fig. 4-6. Display of instructions for space shuttle simulation. 

added a subroutine at lines 7000-7030 to set up the Figure 4-5 shows how the model appears after 
machine-language routine for the high-resolution some manipulations. Fig. 4-6 shows what the video 
printer. We changed the subroutine at lines 500- display looks like if you request instructions. Both 
550, which blanked the graphics. Now it sets all the programs are essentially the same in their opera- 
elements in the VA array to zero. We changed the tion. We will discuss high-resolution a little more in 
printer subroutine, which starts at line 6000. the next chapter, along with line elimination. 
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Chapter 5 




This chapter discusses high-resolution graphics cupied by an alphanumeric character. We called it 



and the hidden Utiq problem and contains four 
BASIC programs which create large-scale high- 
resolution plotters and three-dimensional solid fig- 
ure plotters. 

DEFINING HIGH- AND LOW-RESOLUTION GRAPHICS 

Let's define some terms concerning resolution 
in graphics. We will consider low-resolution fig- 
ures to the figures drawn using alphanumeric 
characters as symbols. In the first histogram pro- 
gram we used the uppercase letter H as a graphic 
symbol. The images created using the lowercase 
letter o, the plus sign, and other similar symbols to 
create images are examples of low-resolution 



n to distinguish it from the second 
shuttle program, which had greater resolution. 

Types of Graphic Characters 

Some computers have a predefined graphic 
character set for creating high-resolution graphic 
images. Some use a block-type of graphic set and 
the characters have ASCII codes above 127. To 
print the graphic character, you would simply de- 
termine the code number of the character that you 
want to print and enter PRINT CHR$(X), where X 
is the code number. By placing this character at the 
proper position, you can create a graphic image. 
Other computers use much the same technique 



frrpnfiirQ MifTh-rpQnlntinn qV»^11 he* HAfinAH f?Q +h& pvront the* rh^r^rt^r^ hq«H ov h,& Q.tr^i€rbf linpp in 



use of symbols where more than one position of a 
point can lie within the area occupied by a low- 
resolution symbol. Our low-resolution space shut- 
tle model was really a high-resolution figure since 
we used tiny squares to represent the points and 
about four of those squares equaled the area oc- 



all directions, curved lines, or special figures like 
those used in Fig. 1-1. 

Other computers allow you to define your own 
graphic characters. You or your computer can make 
a user-defined graphic set, which can be very use- 
ful. The images in Fig. 5-1 were made using a 
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Fig. 5-1. High-resolution video displays of a space shuttle model. 
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shuttle simulation program that defined the graphic 
characters and displayed the images on the video 
screen in high-resolution. 

Some computers skip the use of graphic 
characters completely and turn on individual screen 
bits to display graphics. The disadvantage of this 
technique is that it uses a lot of memory. The 
microcomputer industry is rapidly changing, and 
even as you are reading this book, bigger and better 
ways of displaying graphics are being invented. 

Dot matrix printers create their alphanumeric 
characters using a 7x5 dot matrix. Many comput- 
ers also show alphanumerics on the video screen 
using this method. If we could coax a computer to 
print out individual dots, we would have high- 
resolution. In fact, the high-resolution figures that 
we made of the house were made by programming a 
dot matrix printer to print in terms of the dots 
themselves, not in terms of alphanumerics. 

Some computers use an 8x8 dot matrix for 
displaying characters. Since a lot of microcomput- 
ers are 8-bit systems, each character, particularly 
the graphics characters, would consist of eight 8-bit 
numbers. 

THE HIDDEN LINE PROBLEM 

We have seen several ways to eliminate hid- 
den points. In program 3 and 4, it was done by 
erasing all the points below the current point being 
plotted. Because we used functions and were work- 
ing from left to right as the function was being 
plotted, this type of erasing was a legitimate 
method to use. 

What happens when we want to make a line 
drawing and delete the lines that do not show? The 
computer has no way of knowing that certain lines 
should not be visible. We have seen some al- 
gorithms that will eliminate hidden lines. Generally 
thev are number-crunchers which use a lot of time, individual joints so this oro^am wi!! not work on 
We really must find another way to represent the all computers. Let's look at the program listing. 



data. We can't simply use a set of coordinates and a 
list of line connections and expect the computer to 
know what we consider to be solid surfaces. 

In the molecular model program, we sorted 
the points according to decreasing distance to the 
viewpoint. We then considered that anything within 
a given radius from the molecule was a surface of 
the sphere and points inside of it were to be erased. 
That was an easy solution but it could not be applied 
to other line drawings. One approach to the line 
drawing model would be to designate surfaces in- 
stead of lines. The lines could be the edges of 
surfaces. Another solution, for simple figures, 
would be to store what lines are visible from each 
point of view. As the model was manipulated, cer- 
tain lines would not be printed. That would effec- 
tively eliminate them. Later in this chapter we will 
look at another methods for eliminating hidden 
lines within three-dimensional solid figure plot- 
ters. 

LARGE-SCALE, HIGH-RESOLUTION PLOTTERS 

We will now look at two nrocraros that are 
capable of plotting in high- resolution but that covers 
a larger area than the programs that we saw earlier. 
One program plots data points and functions, and 
the other one is an expanded version of the three- 
dimensional function plotter we discussed in Chap- 
ter 3. 



A Data Point Plotter in BASIC— Program 12 

Figure 5-2 is the result of running the program 
called High Resolution Plotter, using the function 
that is defined in line 15 of the program. This 
program can plot either (X, Y) points or a function in 
which Y is a function of X. In the figure, we labeled 
the axis and the graph as a whole. The points are 
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REM 
REM 
REM 
REM 
REM 



HIGH RESOLUTION PLOTTER 
WRITTEN BV TIMOTHV J. O'MALLEV 
COPYRIGHT 1982, TAB BOOKS INC. 
ALL RIGHTS RESERVED. 
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19 CLEAR 109 

1 5 DEF FN A < T > =S I N < LOG < T > > 

20 DP=100 

30 D I M X < DP ::■ , V C DP > , Z >:.' DP .:■ , W C DP > , G < DP > , H C DP > .- M < DP > , N C DP > 

35 D I M GT < 50 > , AT < 50 > , OT < 25 > 

40 PRINT CHR*'::i2>5 

50 PR I NT 5 PR I NT : PR I NT 

60 PR I NTT AB < 2 1 > 5 " 1 1111 1 1 1 1 1 " 

70 PRIHTTAB-::21>" "1 111 1 1" 

80 PRINTTAB<21>." "11111 1 1 111 11111" 

90 PRIHTTAB<21>S "1 111 11 1" 

1 00 PR I NTT AB < 2 1 > 5 " 1 1111 111 1 1 " 

110 PR I NT s PR I NT 

115 PRINT TAB<3>." 

120 PRINT" 1111 11111 1111 in 1 l 1 llllllll 111"; 

130 PRINT" 1 1" 

135 PRINT TAB<3>5 

140 PRINT" 1 11 1 111 111 ll"? 

150 PRINT" 1 11 1" 

155 PRINT TAB<3>5 

160 PRINT"1111 1111 111 1 11 l 11 ll "s 

170 PR I NT "1 111" 

175 PRINT TAB<3>; 

180 PRINT" 1 1 1 1111 11111 "s 

190 PRINT"! 1 11" 

195 PRINT TAB<3>S 

200 PRINT" 1 1 11111 nil 111 Hill 111 l Hi HI";! 

210 PRINT" 1 1" 

220 PR I NT SPRINT 

230 PR I NTTAB < 1 1 > 5 " 1 111 1 111 1111111111111 1 1 1 111" 

240 PRINTTAB<11>; "1 11 111 11 11" 

250 PR I NTTAB < 1 1 > 5 " 1 1 1 1 1 1 1 1 1 mi 1111" 

260 PRINTTAB'::ii>; "1 1 111 11 11" 

270 PR I NTTAB < 1 1 > s " 1 Hill 111 1 1 1 1 HI 1 1 " 

275 GOSUB 4000 

280 PR I NT : PR I NT : PR I NT 

285 INPUT "DO VOU WANT INSTRUCTIONS <VES OR NOV SAN* 

286 IF AN*="VES" THEN GOSUB 3888 

287 GOSUB 2680 

290 GOSUB 580: REM DEFINE GRAPHING PARAMETERS 

295 GOSUB 50005 REM SCREEN DUMP TO PRINTER 

300 END 

400 REM SUBROUTINE K 498- 480) DEFINES 1ST OR 2ND UARIABLES 

410 FOR 1=255 TO 8 STEP -5 

428 PRINT "ENTER ONE NUMBER PER LINE. WHEN DONE TVPE: END" 

438 INPUT Ql$ 
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440 IF Q1*="EHD" THEN RETURN 

459 K1=K1+1 

468 IF J 1 = 1 THEN X < K 1 > =Ui-iL < 0. 1$>" X < 8 > =K 1 

470 IF J 1=2 THEN VCK1 >=UAL<Q1*> s V<8>=1<1 

480 GOTO 430 

5O0 REM SUBROUTINE •:] 588-686::' INPUTS GRAPHING PARAMETERS 

510 GOSUB 960 SPRINT "LIST OF GRAPHING PARAMETERS:" 

520 PRINT". FOR Jl = l TO 10s READ Alts PRINT Alts NEXT -Jl 

530 RESTORE s PR I NT : I NPUT " WH I CH PARAMETER " 5 Q2t 

540 FOR Ji=i TO 10: READ Alt 

550 IF AltOQ2t THEN 568 

555 OH J 1 G0SUB488 , 480 , 708 , 2 1 88 , 2288 , 2 1 88 , 2288 , 1 788 , 1 488 .- 1 688 

568 IF Q2t="END" THEN END 

578 NEXT Jls RESTORES IF Q2t<>" INITIATE GRAPHING" THEN 588 

575 RETURN 

5S0 DATA DEFINE 1ST UARIABLE SET, DEFINE 2ND UARIABLE SET 

585 DATA DEFINE POINTS 

598 DATA SET DOMAIN, SET RANGE, SET X-AXIS SCALING 

688 DATA SET V AXIS SCALING, DEFINE FUNCTION, DEFINE TITLES 

618 DATA INITIATE GRAPHING 

788 REM DEFINES '::X,V> POINTS 

71S GOSUB 988: INPUT "HOW MANV POINTS"? DP 

728 PRINT "ENTER THESE" S DPS "POINTS AS X,V (ONE PAIR PER 

LINE?" 
730 FOR J2=l TO DP s INPUT XOJ2> , VCJ2> s NEXT J 2 
748 PRINT "DONE ENTERING.. " : RETURN 
888 FOR J=l TO DP 5 POKE MCJ> , N(J> s NEXT J s RETURN 
898 REM LINE 988 CLEARS UIDEO SCREEN COMPLETELY 
988 PR I NT CHR* < 1 2 > 5 s POKE -3968 , 32 " RETURN 
998 REM LINES 1888-1838 FOR POINTS NOT ON SCREEN 

1 8 8 6 M < • J > = - 3 9 6 8 s M '■. J > = 3 2 

1810 FOR I<=1 TO 25 

1 020 POKE C K-2 1 75 > , C ASC < M I D* •-. " SOME PO I NTS ARE OFF GRAPH " , l< , 
1 > > ") 

1830 NEXT K: RETURN 

1190 REM LINES 1288-1248 PRINT BORDER OF GRAPH 

1280 GOSUB 2508 

1210 FOR J==8 TO 25s POKE ■:. 64*J'-3966+ML> , 128s NEXT .J 

1 ? 2 P O |< P r; M | - 2 3 6 6 > , 1 5 6 

1230 FOR J= 1 TO < 57 -ML > s POKE K ML+ J-2366 > ,176 s NEXT J 

1246 RETURN 

1290 REM LINES 1388-1340 PRINT TITLES ON GRAPH 

1380 IOML-3940 •- 1 NT < GT < 8 > . -'2 > 

1 385 FOR -J= 1 TO GT < 8 > s POKE < J+\< > , GT < J > s NEXT -J 

1310 IOML- 2884- 1 NT < AT < 8 ) •■'2 > 

1315 FOR J= 1 TO AT '. 8 > s POKE < J+K > , AT <. J > s NEXT J 

80 



1 328 l<=-3288~64* I NT < OT < 8 > -- 2 > 

1330 FOR J=l TO OT < 8 > s POKE <64*J'+K> , OT <-T> : NEXT -J 

1348 RETURN 

1390 LIMES 1408-1498 INPUT TITLES FOR GRAPH 

1 488 I NPUT " GRAPH T I TLE " 5 Q* : GT < 8 > =LEH < 0:$ > 

1418 IF GT';8>>58 THEN GT<8>^58 

1 428 FOR J-~ 1 TO QT < 8 > " GT < .J > = ASC < II I D* < Q* :■ J .- 1 > > " NEXT J 

1 438 I NPUT " ABSC I SSA T I TL E " 5 Q* s AT < > =LEN < Q* > 

1440 IF AT<0>>58 THEN ATaZO=50 

1 458 FOR J= 1 TO AT ( > s AT < J > = ASC < M I D$ < Q* =. J , 1 > > 5 NEXT .J 

1 460 I NPUT " ORD I NATE T I TLE " 5 Q* : OT «C 8 > =LEN < Q* > 

1470 IF OT ■:: 8 > > 25 THEN 0T<@>=25 

1 488 FOR J= 1 TO OT < 8 > s OT < J > = ASC C M I D* < Q* ? J => 1 > > 5 NEXT J 

1498 RETURN 

1590 REM LINES 1 688-- 1658 PRINT POINTS ON GRAPH 

1600 GOSUB 980s GOSUB 2500s GOSUB 1200s GOSUB 2388s GOSUB 2400 

1603 GOSUB 1308 

1685 FOR J=l TO DP!K=c:54-l Y tL;' : *<: :< : , ::j; , ~XA>.-- - <XB-KC> 

1618 L=25+ < V < J > -VA > ••" <: VB-VA > 

1 628 M < J > =64* < 25- 1 NT < L > > -3966+ML+ 1 NT < K > 

1 638 N < J > = 1 92+8* I NT < 8* < l<- 1 NT < K > > > + 1 NT >: 8* < L I NT < L > > > 

1648 IF n<J><-3968 OR l'1<J)> -2385 THEN GOSUB 1880 

1658 NEXT J : GOSUB 888 s RETURN 

1698 REM LINES 1788-1718 DEFINE POINTS 

1788 FOR ,T==1 TO DP: X<.J>=.T*<XB-XA>.--DP+XA 

1718 V < J > =FN A < X < J > > : NEXT J s RETURN 

2100 GOSUB 908 

2118 INPUT "ENTER MINIMUM K, MAXIMUM X, AND INCREMENT";: 

XA? XB? XC 
2128 RETURN 
2288 GOSUB 988 
2218 INPUT "ENTER MINIMUM V, MAXIMUM ',', AND INCREMENT" 3 

VA, VB, VC 
2228 RETURN 

2298 REM LINES 2388-2368 ARE X-AXIS SCALING 
2388 GOSUB 2588 s FOR .J-XA TO XB STEP XC 
23 1 8 ZZ= < 54-ML > * < J XA > ■" < XB--XA > : I F ZZ > < 54-ML > THEN 2368 

23 1 5 ZB*=CHR* < 1 28 > +CHR$ < 1 29 > -i-CHR* < 1 30 > +CHR* < 1 3 1 > +CHR$ < 1 62 > 

23 1 6 2B*=ZB*+CHR$ < 1 33 > 4 CHR* < 1 34 > +CHR$ < 1 35 > 

2320 A A= ASC C M I D* < ZB* -.- < 1 + I NT < 3* < ZZ- 1 NT < ZZ > > > ;■ , 1 > > 

2330 l<= I NT < ZZ > 2302+ ML s POKE l< =. AA 

2340 Q*=STR*<J>xL~LENO3*>2F0R P=l TO L 

2350 POKE < l<+ P + 63- 1 NT < L..--2 ) > .- < ASC < M I D* < Q* =. P > 1 > > > s NEXT P 

2360 NEXT J s RETURN 

2390 REM LINES 2408-2478 ARE V AXIS SCALING SUBROUTINE 

2488 GOSUB 2588s FOR ...T=VA TO VB STEP VC 
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2419 ZZ=25*<J-VA>^<VB-VA>:IF ZZ>25 THEN 2469 

24 1 5 Z A*=CHR* < 1 76 > +CHR* < 1 75 > +CHR* < 1 74 > +CHR* < 1 5 1 > +CHR* < 1 4© > 

24 1 6 Z A*==ZA*+CHR* C 1 39 > +CHR* C 1 38 > +CHR* < 1 37 > 

2428 A A= ASC < M I D* < Z A* =. < 1 + 1 NT < 8* < ZZ- 1 NT < ZZ > > > > ., 1 > > 

2438 K=-64* I NT < ZZ > -2367+ML " POKE l< , AA 

2448 Q*=STR*'::j::-sL==LEH'03*>!FOR P=i TO L 

2458 POKE < K-L- 1 +P > , < ASC < M I D* < Q* , P , i > > > 

2468 NEXT P. J s RETURN 

2498 REM LINES 2588-2529 GIUE WIDTH OF V -SCALING 

2508 ML .=©: FOR J=VA TO VB STEP VC 

2510 L=LEN>::STR*>:: J >::'!! IF L>ML THEN ML=L 

2528 NEXT J s RETURN 

2688 REM DEFINE GRAPHIC CHARACTERS 

2618 FOR J=~512 TO -Is POKE J, 8 s NEXT J 

2628 U=128:N=-512 

2638 FOR K=l TO 8 s FOR J=l TO 8 

2648 N=N+7 " POKE N , M : NEXT J : N=H+8 

2658 U=U.-2sNEXT K: RETURN 

3068 REM INSTRUCTIONS FOR USE 

3018 PRINT CHR*<12>J 

3015 PRINT " INSTRUCTIONS FOR USE" : PRINT 

3028 PRINT" First set the domairi and the range." 

3038 PR I NT "This is for the X and V axes. Make sure " 

3048 PR I NT " t ha t t he po i n ts w ill fa 1 1 w i t h i n t he ra nse " 

3058 PR I NT "and the domain or else you will set an" 

3068 PRINT"?FC ERROR IN 1718 message or something to" 

3878 PR I NT " t ha t e f f e c t . " 

3875 PRINT 

3888 PRINT" Vou may either define the points or" 

3898 PR I NT " have the computer do it using the function" 

3 1 88 PR I NT "in 1 i ne 1 5 : . w h i c h y o u can red e fine. I f y o u " 

3110 PRINT" h a u e t h e c o m p u t e r d e f i n e t h e i=- o i n t s .- t y p e ' ' 

3128 PR I NT "DEFINE FUNCTION .If you choose to define" 

3 1 38 PR I NT " t he po i n ts y o u rse 1 f ? y o u ca n e n te r e a c h " 

3148 PRINT"coordi nate separately or enter X, V pairs." 

3145 PRINT 

3158 PRINT" Titles may be defined at any time." 

3168 PR I NT "Ad J ustments can be made to the X or V " 

3 1 7fi pp t NT " axes by se 1 1 i ng t he i r s ca 1 i ns „ G r~iF- h i ng " 

3188 PRINT" is accomplished last by typing, " 

3 1 9 8 F : ' R I H T " I N I T 1 A T E G R A P H IMG" 

3288 PR I NT : PR I NT s PR I NT 

32 1 8 I NPUT " RE ADV " 5 AH* 

3228 RETURN 

4888 REM FADE OUT TITLE 

4885 FOR Z-l TO 28 
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4020 FOR l<=-625 TO -632 STEP 1 

4 2 5 J == 2 ■"• ■:: 8 * R H D < 1 > ':> + 1 
4030 POKE K, f-255 AND J) 

•4040 next k 

4050 FOR 1 = 1 TO 100 s NEXT I 

4060 -NEXT Z a RETURN 

5000 REM SCREEN DUMP TO PR 1 1 

5005 DIM UAC30, 60 :> s FOR J=l TO 30s FOR 1-0 

5007 Uft < .J , K ;• =PEEI< •:." 64* < J 1 > +K 3969 > s |- IEX' 

50 1 hi 1 = 3*2" • 1 NT 'C 6*RND < 1 > > 

5 G:i 2 P 1< E 2 6 , O s P 1< E 2 6 1,0s P K E , 6 2 s P ; 
5030 POKE 2 , 205 s POKE 3 ,12s POKE 4 , 224 s P 
5 4 X X = U S R •:: > s p K E 1 , 6 5 s X X = U S R <. > s P K 
5050 FOR J'=l TO 30 s FOR L= ■ 8 TO •■••! 
5060 FOR l<=0 TO 59s IF K, 15^ITKK<15> T 
5070 CH=PEEI< •:: L 8* <. 255-UA < J , K+ 1 > .' > " FOR 
5880 POKE 1,N1*SGN'-;CN AND 2"T1> s XX=:IJSRC 
5090 POKE 1 , 1 3 s XX=USR < > s NEXT L , J' s POKE 
5 J. 00 POKE 1 , 27 s XX-IJSR < .< s POKE 1 , 75 s XX== 
5 1 1 POKE 1 , 1 28 s XX==USR ', > : POKE 1 , s XX- 
READS' 



NTER 
= 1 TO 

T K,J 


68 




OKE 1 : 

OKE 5. 
E 1,2 


201 
XX=USR i ;8> 




MEN CM 
IT=7 Ti 

0>s he: 

1, 12 
1 !:~,R i" 


1SUB 5188 

H 13 STEP 1 

■T m,i<: 
XX=USR03.::' sf 


:etu 


USR < 


, . RETURN 





Lines 3-7 give the name of the program and 
other information about it. Line 10 increases the 
available string space to 100. Line 15 defines a 
function. Line 20 sets the data points at 100. Lines 
30-35 dimension arrays. GT is for the graph title; 
AT is for the abscissa title; OT is for the ordinate 
title. Line 40 clears the video screen. Line 50 
contains three print statements for spacing down. 
Lines 60-270 are print and tab statements that con- 
tain graphic characters, which are printed as ones. 
Line 275 calls the subroutine at line 4000, which 
changes the graphic characters while they are on 
the screen, making them appear to sparkle. After 
three more print statements in line 280, line 285 
asks if the user wants instructions. If the answer is 
yes, it calls the subroutine at line 3000. Line 287 
calls the subroutine at line 2600, which defines 
graphic characters containing a dot in each of 64 
possible positions. Line 290 calls the subroutine at 
line 500, which asks you to enter certain parame- 
ters, or ways that you want the result to be printed. 
Line 295 calls the subroutine at line 5000, which is a 
screen dump to the printer. Line 300 ends the 
program. 



Lines 400-480 define the variable (if you want 
to enter them one number at a time). Lines 500-600 
enter the graphing parameters. Some of the data is 
located in lines 580-610. Note the use of the restore 
statement in line 570. Lines 700-740 request you to 
enter the coordinates of the points you wish to plot. 
You must enter each X and Y as a pair. Line 880 is a 
subroutine that pokes the points onto the screen. 
Line 900 clears the video screen. Lines 990-1030 
are used when you enter coordinates for points that 
will not appear on the screen. An error message is 
poked on the bottom line of the screen. Lines 
1190-1240 print the border of the graph. Lines 
1290-1340 print titles on the graph. Lines 1390- 
1490 allow you to input the titles for the graph. 
Lines 1590-1650 calculate the positions at which 
points must be printed on the graph. Lines 1690- 
1710 define the points when you are using the 
function in line 15. Lines 2110-2220 are for entering 
the scaling of the graph. Lines 2290-2360 are for the 
X-axis scaling. Lines 2390-2460 are for the Y-axis 
scaling. Lines 2490-2520 give the width of the 
Y-scaling. Lines 2600-2650 define special graphic 
characters that are represented as dots. Lines 
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Fig. 5-2. A large-scale high-resolution data point plot. 



3000-3220 give the instructions for use. The sub- discussed in Chapter 3 can be expanded so that each 



routine in lines 4000-4060 fades out the title by 
rhanenrxr the frranhic characters nn the serpen 
Lines 5000-5110 are an optional screen dump, 
which wiii enable you to print the graph. 

As we have said, this program may not work on 
the many computers that do not allow you to define 
graphic characters. 



A Function Plotter in BASIC— Program 13 

The high-resolution function plotter that we 






number in tu* 

points that it represented in that nro^Tam. In this 
program we will attempt to have it represent up to 
iy numbers. Since 8-bit microcomputers use up to 
24 bits to represent the mantissa of a number and 
will typically hold an integer as large as six digits 
before it converts it to floating point notation, we 
have approached the practical limit of representing 
numbers as bits of another number in order to plot 
them as points. Since the Boolean algebra binary 
logical OR and AND functions may not work for 
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such large numbers we have to split the number of errors when such large numbers are added to such 

bits in half and then do the logical operations on the small numbers. The many manipulations necessary 

two halves. The result is in Figure 5-3. The tat- when erasing bits also contributes to the imprecise 

tered appearance of the figure is due to rounding appearance. The method is nonetheless valid. 

10 REM 3D HIGH RESOLUTION FUNCTION PLOTTER 

2@ REM SECOND UERSION 

39 REM WRITTEN BV TIMOTHY J. O'MALLEY 

40 REM COPYRIGHT 1982, TAB BOOKS INC. 
50 REM 

60 GOSUB 180: REM INITIALIZE PROGRAM 

70 GOSUB 200: REM PLOT POINTS IN ARRAY 

80 GOSUB 600: REM PRINT OUT ARRAY ON PAPER 

90 END 

100 REM INITIALIZE PROGRAM 

1 1 HGT= 1 9 : W I D=349 : W2=78 

1 20 DEP FHA >:: R ;.' = 1 8* < EXP ( ~R*R-- 1 000 > *COS < R-"6 > > 

130 DIM UA'::HGT ? I..JID>:REM DIMENSION ARRAY FOR PLOT 

148 DIM A1(20):K=1 

1 58 FOR J=0 TO 28 : A 1 >■. 3 > =l< : K=K*2 : NEXT J s RETURN 

200 REM PLOT POINTS IN ARRAY 

210 FOR X=-~48 TO 40 STEP 8.5: FOR Y=-48 TO 48 STEP 8.2 

228 R=SQR ■:: X*X+ Y*V > : Z=FNA < R > s U= Y*8 . 1 7-X*8 . 88+Z+HG7V2 

238 H=X*2.88+Y*2.61+WID-'2: IF U<8 OR U>HGT OR H<8 OR 

H>W1DTHEN298 
248 I U= I NT < U > s I H= I NT C H > : DU= I NT < 1 9* < U- I U > > : PU= A 1 < DU > 
250 IF -::UA<IU, IH)>512> OR (PU>512> THEN GOSUB 380: GOTO 270 
260 U A < I U , I H > =UA < I U , I H > OR PU 

270 GOSUB 400: REM ERASE POINTS BELOW PU IN Oft'; IU, IH> 
2S0 GOSUB SOO: REM ERASE POINTS BELOW UA< IU, IH> 
290 NEXT V.-X: RETURN 

300 REM NUMBERS TOO LARGE POR OR FUNCTION 

305 YS= I NT < '...'A < I U ,IH) .-"5 12): XS=U A < I U , I H > -5 1 2* YS 
310 IF PU>512 THEN ZS=INT<PO>'512> s VS=VS OR ZS 
320 IF PU<=512 THEN XS=XS OR PU 
330 UA < I U , I H > =XS+5 1 2* YS : RETURN 

350 REM NUMBERS TOO LARGE FOR AND FUNCTION 

360 VS= I NT < U A < I U ? I H > .-'S 1 2 > : XS=U A < I U , I H > -5 1 2* YS 
370 IF J2>512 THEN ZS==INT<.T2.-'512> : IF < VSANDZS>=ZS THEN 



II.---.I ir 



388 IF ,T2<=512 THEN IF <XS AND J2>=J2 THEN XS=XS~-.J2 

398 U A •:.' I IJ , I H > -XS+5 1 2* VS : RETURN 

480 REM ERASE POINTS BELOW PU IN U A < I U, I H > 

410 IF DU=0 THEN RETURN 

420 FOR J=DU-1 TO O STEP -1 s J 2= A 1 <J> 

438 IF <J2>512> OR OJft< IU, IH> >512> THEN GOSUB 358: GOTO 458 
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448 IF <-. UA < I U , I H > AND J2 > = J2 THEN UA < I U , I H > ==UA < I U , I H > - J2 

459 NEXT J : RETURN 

560 REM ERASE POINTS BELOW UA<IU,JH> 

518 IF I 0=8 THEN RETURN 

528 FOR .J=IU-1 TO 8 STEP -1 s UACJ, IH>=8s NEXT J: RETURN 

608 REM PRINT OUT ARRAV ON PAPER 

605 QOSUB 788 : REM SET UP MACHINE LANGUAGE SUBROUTINE FOR 

PRINTER 
618 FOR JS=HGT TO 8 STEP -Is FOR MS=1S TO 8 STEP -1 
628 BS=A1 <MS> s FOR LS=8 TO 4sG0SUB 668 
625 FOR KS=LS*W2 TO LS*W2+W2-1 

638 IF <BS>512> OR 0,'ACJS, KS> >512> THEN GOSUB 888s GOTO 648 
635 POKE 1 , SGN < BS AND UA < JS , KS > > : XX=USR < 8 > 
648 NEXT KS , LS : POKE 1,13s XX==USR < 8 > : NEXT MS , JS 
658 POKE 1,12s XX-USR < 8 > : RETURN 
668 POKE 1 , 27 a XX=USR < 8 > s POKE 1 , 75 : XX=USR < 8 > s POKE 1 , 1..J2 

,S70 vv-usr >-, 8 :■ - poke i , e s xx=ijsr ■; e > - return 

708 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 

718 POKE 268,8:: POKE 26 1,8s POKE 8, 62s POKE 1,27:: POKE 2,285 

728 POKE 3,12s POKE '4,224 s POKE 5,201s XX=USR < 8 > : POKE 1 , 65 

738 XX=USR < 8 > :: POKE 1 , 1 s XX--USR < 8 > s RETURN 

S08 REM NUMBERS TOO LARGE FOR AND FUNCTION WHEN PRINTING 

9 J, RS»0 ;: ys= I NT ( UA < JS , KS > .-'5 1 2 > s XS=UA < JS , KS > -5 1 2*VS 

826 IF BS>512 THEN ZS=INTCBS-''512> : IF <VS AND ZS>=ZS THEN RS=1 

838 IF BS<=512 THEN IF <XS AND BS>=BS THEN RS=1 

840 POKE 1 , RS s XX=USR < 8 > s RETURN 

READ'/ 



Let's examine the program. Lines 10-50 give 
the name of the program and the other credits. Line 
60 calls the subroutine that initializes the program. 
Line 70 plots points in the array. Line 80 prints out 
the points on paper using high-resolution graphics. 
Line 90 ends the program. 

Line 100 is the remark statement for the ini- 
tialization subroutine found in lines 100-150. Line 
110 sets the height, width, and the variable W2 for 
the printer. Line 120 defines a function. Lines 130 
and 14.0 dimension arravt? and set the variable K to 
1. Line 150 stores the powers of 2 in an array called 
Al. Then program control returns to line 70. 

The points are plotted in lines 200-290 with 
line 200 being the remark statement which contains 
the subroutine's heading. In line 210 we have the 
start of two nested for-next loops that give the X 
and Y- coordinates. In line 220 R is set as the dis- 



tance from the middle of the plot. Z is a function of 
this distance. In this program if the number PV or 
VA(IVJH) is greater than 512 (2 to the power of 9), 
the numbers are too large for the OR function and 
the AND function, and they are split in two (not 
divided by two). Then the binary logical operations 
can be executed to plot the points. Lines 270 and 
280 erase points below the most recently plotted 
point. 

Lines 300-330 are the lines of the subroutine 

wmr*n cm lit thp rtHmharq fn.v fliA O'K* fnr>r*tir\n T moc; 

350-390 are the lines of the AND function sub- 
routine which split the numbers that are too large. 
Lines 400-450 erase the bits in the number below 
the present bit position. Lines 500-520 erase the 
bits in the numbers below the current number by 
setting those numbers in the same column of the VA 
array to zero. Lines 600-670 form a machine- 
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Fig. 5-3. A large-scale high-resolution function plot. 

language utilizing subroutine that sends numbers to 
the printer, set up by the subroutine in lines 700- 
720. If the numbers are too large for the AND 
function used in the printing subroutine, the sub- 
routine in lines 800-840 is used. 



eliminate hidden lines. We have already seen a 
couple of methods of eliminating points; namely, 
erasing points that are below the points plotted on a 
function, and sorting and ignoring points in the case 
of the molecular models. 



THREE-DIMENSIONAL SOLID FIGURE PLOTTERS 

We now look at two programs that eliminate 
lines to make three-dimensional solid figures. 
These two programs use different techniques to 



An Architectural Drawing in BASIC— Program 14 

Figure 5-4 shows one of the possible views of a 
simple solid figure in the shape of a building. This 
low-resolution figure is also in perspective. 
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THREE DIMENSIONAL SOLID PLOTTER 
WRITTEN BV TIMOTHV J. O'MALLEV 
COPYRIGHT 1982, TAB BOOKS INC. 



19 REM 

20 REM 
30 REM 
40 REM 

50 GOSUB 200s REM INITIALIZE VARIABLES 
60 GOSUB 500 s REM BLANK ARRAS-' 

600s REM ROTATE POINTS ABOUT AXIS 
890: REM PLOT LINES AND ERASE HIDDEN POINTS 
2000 s REM PRINT OUT ARRAV 
60 
REM INITIALIZE VARIABLES 

I P= 1 s I A=7 s B*= " Z " s E=0 . 3 s S= 1 s T= I P s F=8 . 1 "• G=0 . 98 s U=3 1 : 
D I M X < I P > , V < I P > ? Z(I P y , R < 3 > , U A < U , W > , LL < I A , 1 & > .- D I ■; I A J 
ST< IA> 

I P s READ X < J > , '■■' ■:: J > , Z C J > s NEXT J 

IAs FOR K=8 TO IS: READ LLCJ, K> : NEXT K.J 

0, 1 ? , 2j1?0! 2j , 

2 j 9.-1 ? 0.-0.5,1.5:. 2,0.5.-1.5 
2, 1, 1 

3 ., 4 , I ., Q ., Q ., Q ? Q , Q 



70 GOSUB 
80 GOSUB 
90 GOSUB 
100 GOTO 

200 

210 

220 



W=63 



230 

240 
250 

260 
270 



FOR J=l TO 
FOR J=i TO 

DATA 0,0.-0: 

DATA 0,0, 1 : 
DATA 0, 1, 1: 



280 DATA 5 , 1 , 



290 
3 00 
310 
320 
330 
340 
350 
360 



DATA 5 , 1 , 5 , 6 , 4 , 1 , , , , O , 

DATA 5, 3, 

DATA 5,5? 

DATA 5,8: 

DATA 6, 1 s 

4: 



1 , 9,2, 3 , , .- , , 

6 , 8 , 7 , 5 , , , , , 

1 , 9 , 7 , 8 , ,0 , , , 

2,9,7,5, 1 , .- , O , O 



DATA 6, 4,3, 10,8, 6 
R< 1 > = 1 s R<2> : =0. 5s R 
X >'. > : = 1 s V < > =— 1 s Z 

370 RETURN 

500 REM 

510 FOR J=0 

520 RETURN 

600 REM 

610 FOR -J=S 

620 IP B$="Z" THEh 
IF B*="Y" THEI- 
IF B*="X" THEI- 
P 1 = A 1 - A2 s P2-- A2 



TO 



TO 



4 , , , : 
:0>=0. ? 



BLANK ARRAS-' 
Us FOR K=@ TO W! 

ROTATE POINT:! 



k) 



UACJ, 
; ABOU 



ne:< 



AX I : 



fcoW 
640 
650 
660 
670 



A1=X>- 
A'1=X'. 
A1=V': 
-A4 



J > 
■J > 



A2=R 



Hi 



=R<2 



A3= 
A3 : 



H 4=r. 

A4 : =R 

A4=R 



L=SQR >: P 1. *P 1 +P2*P5 
IF P2=@ THEN h5=- 



141591 



t 



;. I. 



byy 

700 



j. r r i ~ 

IF P2O0 ANi: 



;pi<0>* 

■i j : - :; 1 . 5 >■■ y >■■ y c 

1O0 THEN A5=ATIKP 



'10 

'20 

'30 



IF B*="Z" 
IF B*="V" 
IF B*="X" 



THEN X <: J > =L*COS •:. A5 > +-R < 1 : 
THEN X <-, J ) =L*COS < A5 > +R < 1 . 
THEN V < -J ) =L*COS '■■: A5 > +R < 2 



='1<0>*3. 14159:] 



R< 
R ■:: 

R< 



.:r;:'=L+ 


BIN' 


as: 


■ -i 


J>=L : * 


BIN' 


:as: 


1 1 


..T>=L* 


BIN' 


:as: 


i-i 
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74@ NEXT J 

?5@ RETURN 

800 REM PLOT LINES AND ERASE HIDDEN POINTS 

805 REN LINES 810-848 FIND MEAN DISTANCES TO FACES 

818 FOR J= 1 TO I A s K==LL < J , > 1 s D I < J > =8 

828 FOR L= J. TO k : SUM™ < X C LL <", J :• L > > - X < 8 :.' > • 2~i ■:.' V ( LL < 3 ■.. L > ':> -V < 8 > > -" 

838 D I < J > =D I •:." J > +SQR •:.' SUM+ < 2 < LL •: J , L > > -Z < > 3 "-2 > 

848 NEXT L,: D I < J > =D I < J > .-K : ST < J > = J : NEXT J 

850 REM LINES 868-948 ARE A DESCENDING ARRAV SORTER FOR ST 

868 FOR .J=l TO IA-1 

888 IF D I < l< > >=D I < K+ 1 > THEN 948 

890 A-ST<I<> s B=D I ■::!<::' 

988 ST < l< > =ST < K+ 1 > s D I < k ]:■ =D I < l<+ 1 > 

918 ST < |<+ 1 > =A s D I < l<+ 1 > =B 

928 K=K~1 

938 IF l<>8 THEN 888 

940 NEXT J 

945 REM CONUERT X,V,Z TO l-l,U < LINES 950 1150> 

958 FOR ,T=1 TO IP 

960 DV=V<.J>-V'i:8>n IF DV<=8 THEN PRINT "DECREASE V<0> " : STOP 

970 D X = X < ■ 3 > • - X C ';> 

988 DZ=Z < J > -Z < 8 .') 

998 "... " ■:: J > = ATN < F*DZ.-'D V > 

1 888 H < J > "ATN < F+DX.-'D V ) 

1818 NEXT J 

1 828 M I NO=U < 1 > s I1AXU=U < 1 > 

1 838 M I HH=H < 1 > s MAXH=H < 1 > 

1848 FOR J=l TO IP 

1858 IF UOJXMINU THEN M I HU=U < J > 

1868 IF UCJ.v>MAXU THEN M AXU=U < J ) 

1878 IF HCJXIIIHH THEN MIMH"H<J> 

1888 IF HC.LOMAXH THEN ITAXI-M-K J> 

1898 next ,T 

1188 dh=Mi-ixh-~minh 
1118 du-maxu-minu 

1128 FOR J=l TO IP 

1 1 30 H <. J > =G* < H ■: ,T > M I NH ;■ •"Dl -1*1,.! 

1 1 48 u <■: j > =g* <: u <: j :> -m i no > .-'■du+u 

1158 Next j 

1155 rem lines 1168-1678 draw lines 

1168 FOR L=l TO I A 

1 j. 78 FOR J'~ 1 TO LL < S T < L > , 8 > 1 

1 1 88 HH=H ''J LL '■ ST >.. L > , J+ 1 > !) -H <:. LL >i ST' •: L > ■> J > > 

1 1 Q0 i,.im=i. i .; ll i. S T < L > : . J+ 1 ';> > -• U C LL (. ST '.: L > :■ J > > 

1218 IF HI-N8 THEN 1318 



: 'L01% AND ERASE POINTS 
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1229 
1238 
1249 
1 250 
1260 
1 278 
1 280 
1290 
1 300 
1310 
1320 
1 330 
1 348 
1330 
1 368 
1 400 
1410 
1428 
1 438 
1 448 
1 458 
1 460 
1 478 
i '4 yy 
1 495 
1 388 
1518 
1528 
1 525 
1 538 
1 548 
1 558 
1 568 
1628 
1 625 

1 'b 3 8 
1 €■■ 5 8 
1 6.68 
1 678 
26108 
2© 1 8 
2628 
2838 
2848 
2858 



I1=UU. HH 

B=U •: L.L < ST ■; L > , J > > ~M*I-I < LL ( ST C L > =• J > > 
SP=SQR < UUWU+HI+N-III > 

FOR K=l I < LL < ST < L > , J > > TO l-l C LL < ST < L > , J+ 1 > ) STEP' HI~L"SP 

P=M*K+B 

GOSUB 1488 

NEXT l< 

NEXT J 

GOTO 1448 

REM SLOPE EQUALS INFINITY 

K=H<LL';ST':L> , Jj > 

I f y u-Q THEN F -U < LL < ST < L > :■ J ':< > 5 GOSUB 1 '488 s GOTO 1 298 

FOR P=U < LL < ST < L > =. J > > TO U C LL «: ST(L) ; J+ 1 > > STEP SGN < '."J > 

GOSUB 1488 

NEXT PS GOTO 1298 

REM PLOTTING SUBROUTINE 

IF P>U OR P<8 OR K>W OR l«8 THEN RETURN 

Ul = IHT'::P>sU2=INT<K> 

UA ■:: U 1 =■ U2 > =48 s RETURN 

MPU=0sl'1PH=8 

FOR J=i TO LL<ST'i:L>p8>-1 

MPU=U < LL ■:: ST < L > , -J > > +MPU s MPH=H < LL < ST < L > , J > > +MPH 

NEXT J s MPU= I NT < MPU-- < LL < ST < L > , 8 > -- 1 > > 



IIP ri-— 1111 •-. I'll ii- ••. !_.!.- •-. •-' I •■ l_. . 



REM LINES 1588-1628 ERASE POINTS WITHIN POLYGON FACE 

K-1 I t~- .~p l~i -•" I I -.I.- 1 I . I I -X- 1 | '-. 

i ■ 1 1... — •:■ <y. r-. ■-. '.m ■■«'■ w "'" '_• ■<■ >-• -•• 

FOR -J =8 TO 6.3 STEP 8 . 82 s K=@ 

H I =MPH+ 1 NT < K*COS •:. J > > s U I =MPU+ 1 NT < K*S I N < J > > 

IF IOML OR UIMJ OR UK 8 OR HI>W OR HK8 THEN 1628 

IF UA'X'l, HI >=48 THEN 1628 

UA<UINHI>=32 

l<=4<+8„4 

GOTO 1528 

NEXT J 

REM LINES 1638-1668 CHANGE MARKER CHARACTERS TO 

ASTERISKS 

FOR -J=8 TO U=FOR K=8 TO W 

I F UA ••: J .-. K ':> =48 THEN U A ( J - !< > =42 

NEXT K,J 

NEXT L s RETURN 

REM PRINT OUT ARRAY 

FOR ,T=U TO 8 STEP -1 

FOR K=8 TO I...I 

print chr*'::uacj,i<>>5 
next k 

PRINT 
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I'fll: 

L'07 



NEXT ,1 
PRINT CHR*':.l 
50 RETURN 



Let's quickly run through the program to see 
how we eliminated the hidden points. Lines 10-40 
give the credits. Line 50 calls the subroutine at line 
200, which sets up the variables, dimensions the 
arrays, and reads data, etc. Line 60 blanks the array 
that is used to store the points by calling the sub- 
routine at line 500. Line 70 calls the subroutine at 
line 600, which rotates the points. Line 80 calls the 
subroutine at line 800, which plots the lines and 
erases the hidden points. Line 90 prints out the 
array of points. Line 100 directs control to line 60 to 
make an endless loop to present all the different 
views of the model. 

In the subroutine in lines 200-370, IP is the 
number of points used to determine the figure. IA is 
the number of polygon sides or faces on the figure. 



The other variables are the same as in other pro- 
grams. The LL airay is a linked list of line connec- 
tions for the polygon sides. Each line (row) of the 
array is the connection for a side. The first number 
in each row of the array is used to tell the number of 
line connections for each side. The remaining num- 
bers in tlie array indicate the number of the point 
used, much like in other programs. 

Line 500 sets all the array elements of VA to 
32, the ASCII code for the blank space. Lines 600- 
750 rotate points exactly as in earlier programs. 
Lines 810-840 find the mean (average) distance to 
each polygon face. This information is used to de- 
termine what face to plot first, second and so forth. 
We plot the face furthest from the viewpoint first. 
Lines 860-940 sort the indices of the points by 



:+: * * * + * * * :+: * :* * * * * * * .*: :+: :+: :+: :f :+: :+: :+c * :+: * :f. :+: :+: :+: # # * * :+: * :+: :+: :+: * :+: :fc :+: :+: * * :+: * :+: :+: :+: * 
* * +* 

* * 

:+::+: :$: -^ 

:+: * :+: * * :+: * * :+: -.4,: :f- :+: # ;+: jj.: :$ jfc % :fc # $; # * % $ : ;$ : + : # : ^ : # : ^ # : ^ ^ ■# ■# # -^ ^ -^ :+: + . :+: :+: :+: :+; ;+: ■$■ ;+: :+: -^ %■ -^ -^ ■# 
* 

* 
* 
* 



* 
* 

* * :+: 

* * :+: 
:+: :+: 

* * * 

* * :+: 

* * :+: 
:+: :+: :+: .+ :+: # * :+: :+: :+: jfc :+: >(.: :+: :+: +: :+: :+: # >fc # # # »< # # * * jfc :.« # :+: # :+: :+: * # # # # # # : + : # : + : # # :■),: # : + : jfc j« :+::+: :+: * # :+: :fc :+: :+: * :+: 



Fig. 5-4. An architectural example of three-dimensional solid plotting. 
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decreasing distances of the faces from the view- 
point. Lines 950-1150 convert the X, Y, Z coordi- 
nates of the points to horizontal and vertical values 
much like in earlier subroutines that plotted 
perspective lines. Here we complicate things a 
little by making use of the linked list. 

In line 1440, MPV is the vertical value of the 
midpoint of the polygon side, and MPH is the hori- 
zontal value of mat midpoint. We set it to zero 
initially, and then find its true value in lines 1450- 
1480. Lines 1500-1620 erase points within each 
polygon side. It changes the value of anything near 



A Landscape in BASIC— Program 15 

Figure 5-5 depicts an artificial landscape made 
by a computer and a printer. It resembles a rocky 
terrain in which the valleys in the background are 
hidden by the peaks in the foreground. Since this 
program uses the random (RND) function, this 
figure is only one of many that are possible. 

The program is fairly simple. Lines 10-40 give 
the credits. Line 50 sets the height of the printout at 
60, and sets W, the number of ridges in the figure, 
to six. Line 60 dimensions the VA array to those 
values. The nested loop in lines 70-100 determines 
the values of the points in the array using the RND 



NATURAL SCENE 
WRITTEN BV ' 
COPVRIQHT 1' 



<. BROWN I AN GENERAT I ON ?' 
rillOTHV J". O'MALLEV 
382, TAB BOOKS INC. 



10 REM 
20 REN 
30 REM 

49 REM 

50 11=6© s W=6 

60 DIM WKLM'.C' 

70 FOR 1-1=1 TO I..! 

?'5 UA '; , H ':> = 1 5 i-H*7*RND <:'. 1 > 

80 FOR "..'== 1 TO U 

9© U A k U , N ':< =0 A ■:! A- 1 , 1-1 ;■ + < RND < 1 > -0 „ '5 /' *4*RND < 1 : 

100 NEXT U,M 

110 FOR ',.1=6 TO U 

120 F : '-~0 

130 FOR H=0 TO 1.1.1 

l.;|0 ];=:U|:;|,;M : , || ;, 



160 PRINT TAB'; I > 5 "*";: 

L7& P=I 

ISO NEXT H sPRIHTs NEXT U 

READS' 

the midpoint to 32. Lines 1630-1660 change the 
number 40 in the array to 42, the ASCII code for the 
asterisk. We used the number 40 to indicate the 
boundary of the polygon, a number that would not 
be erased by the program. See line 1530. Lines 
2000-2080 print out the array as characters, either 
blanks or asterisks. 



function. Lines 110-180 print out the figures. Line 
150 says if a value position of a point is to the left of 
the last points, that is hidden, go to the next point. 
This corresponds to a valley in the figure. 

This program uses so-called Brownian genera- 
tion because each point is determined in part by the 
position of the last, point in the same ridge. 
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The video display screen and printer of die personal 
computer may be used for many purposes; among 
them is computer art. Imagine! Think of all the 
possible images that can be created and displayed 
on the screen or on paper. Any image that can be 
made as a pattern of light and dark points, and in 
some cases, colored points can be generated by the 
personal computer. 

Let's look at some of the ways of producing the 
images that comprise computer art. Remember 
that the imagination of the programmer and the 
sophistication of his system determine the quality 
of the computer-produced art. 

HOW TO GENERATE COMPUTER ART 

It all starts with an idea. A programmer has an 
idea which he wants to turn into a work of art to 
display using the computer. He can approach it in at 
least two ways: he can sketch the work on graph 
paper and then transfer the points to the computer 
for precise definition and positioning; or he can 
have the computer define all the Doints mathemati- 



cally, according to some algorithm. He might then 
refine the image by deleting some points to high- 
light a particular feature. When finished, he has a 
work of computer art. 

Handmade Method 

Let's examine each of these methods in detail. 
In the handmade method, you might start with a 
photograph or drawing of a subject of interest. 
Since points lie in specific positions, graph paper 
can be used to specify their locations. Squares con- 
taining points would be filled in. If a line ran through 
a square on a graph paper, the square could be filled 
in. 

Tn a method railed s'mple thresholding, a 
square of the graph paper would be filled in if a line 
ran through that square or if, in the case of shading, 
that square corresponded to an area that was 
darkened. In partially shaded squares it would be 
filled if the square was 50% (or more) filled. Each 
picture element would be transferred until the en- 
tire image was completed. A more complex method 
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would be to assign values, of for example, zero to 
nine, to each picture element and then to use col- 
ored dots ranging from a bright color to a dark color 
as the values ranged from zero to nine. This process 
would be very tedious and may not be worth the 
time because there are better alternatives. 

The handmade method is good for defining still 
images especially still components. A still image is 
a large picture that is intended to be displayed once. 
It can't be manipulated easily and will occupy the 
same part of the video screen each time that it is 
displayed. A still component is a small portion of 
that image that can be moved about on the video 
display. 

Computer-Generated Method 

Computer-generated art does not require the 
nitty-gritty kind of labor that the handmade method 
demands. Software is used exclusively to syn- 
thesize a picture. To make the picture, the compu- 
ter would run through a program and decide what 
picture elements to turn "on" or leave "off'. It 
might also be programmed to alter the image to 
create an abstraction, an exaggeration of reality. 

To make a circle, for instance, the computer 
would use the equation of a circle to plot points. 
Squares, triangles, and other figures might also be 
plotted from their mathematical definitions. Vari- 
ous techniques might be used to generate altered 
images: simple figures could be distorted by some 
factor; false colors might be applied to perform 
highlighting. 

STILL IMAGES 

We will now direct our attention to the making 
of a still image using the handmade method. We will 



look at two types of graphic characters. 

As we said earlier, some computers use 
graphic characters that have ASCII codes above 
128. To print these characters, the programmer 
simply types: PRINT CHR$(N), where N is the 
code number for the graphic character. The pro- 
grammer might supply the values for N in data 
statements in the handmade method. The program 
would contain a series of data statements contain- 
ing the location of points that the computer would 
read in the print as graphic characters. 

Other computers allow you to activate indi- 
vidual dots or rectangles on the video display 
screen. Some of these computers use a function 
called set, where (SET(X,Y) would turn "on" the 
rectangle at position (X, Y) on the video screen. The 
programmer need only supply a list of coordinates 
and have the computer perform a series of sets to 
display the image on the screen. Other computers 
that activate individual dots turn "on" the points by 
altering the bits of the memory location that relate 
to the screen RAM. 

The Space Shuttle As An Example— Program 16 

Figure 6-1 is the image of the space shuttle 
made using the handmade method. In this case we 
drew the shuttle on graph paper, filled in squares 
that were dark areas, then calculated the numbers 
that resulted if we assumed that the dark areas 
were bits of a number. That is, using groups of eight 
positions, if the rightmost square is the only one 
that is darkened, the number is 1. If the leftmost 
square is darkened, the number is 128. Thus we 
take the binary of the squares and make decimal 
numbers. We present the BASIC program that 
made the figure but we will not examine it in detail. 



10 REM 




20 REM 




39 REM 




40 REM 




45 PRINT 


CHR*<12) 


50 GOSUB 


1 000 : REM 


60 GOSUB 


2000 s REM 


190 END 




200 DATA 


O O 



HIGH RESOLUTION REALISTIC ART 
WRITTEN BV TIMOTHV J. O'MALLEV 
COPYRIGHT 1982, TAB BOOKS INC. 

REM CLEAR SCREEN <SOME USE CLS> 

DEFINE GRAPHICS 

PLACE GRAPHICS ON SCREEN 
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21S DATA 24,@, 1,3,7,7, 15, 14,36, 112,252,246, 143, 248, 0.- S, 31 

220 DATA , , , , 1 28 , 1 92 , 32 , 1 60 

230 DATA 104 

240 DATA 24,31, 56 ,32,32,33,33, 97 ,97,43, 48 , , , 255 , , , 

250 DATA 208 , 24 , S , 228 , 252 , 66 , 66 , 66 

260 DATA 96 

j_ i fcj L'H I H -_'j_ , h3 , tJ , fcj , 1 , J. , J. , J> , •_< , :' r , ji.jC.-J , ._. j_-J , ji.ji._i , _ij_._i , ._.._.•_" , izj , j_j_-_i 

280 DATA © , 8 , , 255 , , , , , €-6 , 66 , 66 , 253 , 66 , 66 , 66 , 66 
290 DATA 96 

39© DATA 32 .-■ 3 ,7,7, 11, 11, 1 9 , 35 ? 68 ? 24 J , 24 1 -• 24 1 ■■■ 24 1 -■ 24 1 ■« 24 1 ■• 24 1 
,17 

3 1 DATA , , 255 , 8 , , , , , 66 , 66 , 252 , 66 , 66 , 66 , 66 , 66 

320 DATA 80 

330 DATA 64 , , 8 , ,8,3, 12, 19,36, 1,6,27, 1 88 , 1 76 , 1 92 , 8 , 8 

348 DATA 1 52 , 224 , 8 , , 8 , 8 , 8 , 8 , 17, 17, 17, 17, 1 7 , 33 , 33 , 33 

358 DATA 8 , 255 , 8 , 8 , 8 , 8 , 8 , 8 , 66 , 254- ,71, 66 , 66 , 66 , 66 , 66 

368 DATA 8 , 8 , 1 28 , 1 92 , 48 , 24 , 6 , 3,8, 8 , 8 , 8 , 8 , 8 , 8 , 1 28 

370 DATA 64 

388 DATA 64 , 72 , 96 , 1 1 2 , 255 , 1 35 , 224 , 3 1.-8, ,0,8 , 255 , 255 , 35 , 1 68 

390 DATA , 8 , 8 , , 254 , 255 , 3 , 3 , 35 , 38 , 36 , 36 , 40 , 232 , 298 , 288 
488 DATA 255 , 8 , 8 , 8 , , , 8 , 8 , 254 , 1 26 , 115, 92 , 78 , 67 , 65 , 64 

428 DATA 72 

438 DATA 56 - 1 , 8 - 8 , 8 , 8 , 8 , 8 , 8 -. 24'^ •< 1 3 ■. R •. l"! ■. ~ z , ■. y. ■. 8 •. fi 

448 DATA 28 1,217, 254 , 248 , 248 , 255 , 1 27 , 1 , 255 , 1 52 , 1 36 , 248 ,31, 247 

458 DATA 248 , 255 ,216, 87 , 49 , 24 , 247 , 224 , 1 92 , 1 28 , 28 , 1 2 , 199, 54 

468 DATA 1 42 , 1 82 , 38 , 8 , 3 , 38 , 224 , 8 , 8 , 8 , 8 , 8 

478 DATA 128 

1888 REM DEFINE GRAPHICS 

1 8 1 8 A = - 1 8 2 5 s II = 8 

1828 FOR J=l TO 15s READ ZsN=8 

1838 FOR K=l TO Z:A=A+lsIF M<8 THEN READ H 

1848 POKE A, H! NEXT K: M==NOT<M> s NEXT J 

1858 RETURN 

2888 REM PLACE GRAPHICS ON SCREEN 

2818 FOR 0=192 TO 1216 STEP 512 

2828 FOR P=Q-3968 TO Q-3928 STEP 16 

2848 FOR J~P TO P+511 STEP 64 

2858 FOR l<=8 TO 15 

2868 L=L+1 

2878 POKE OJ+IO,L 

2888 NEXT K,J,P,Q 

2898 RETURN 

READV 

96 




Fig. 6-1. Top view of space shuttle created using the hand- 
made method. 



Advantages and Disadvantages of Still Images 

Still images are good if they are to be used 
once and do not need to be manipulated in any way. 
Still images would be good for file purposes. 
Perhaps you want to store a picture on tape or disk 
for retrieval at a later date. Still images would be 
good for that purpose. Should you want to manipu- 
late the still image, you would be at a disadvantage; 
still images are not easily moved. 

STILL COMPONENTS: 

MOVABLE UNITS OF STILL IMAGES 

One way to manipulate still images is to divide 
those stills into components and then move the 
components. By taking small blocks, you can man- 
age the images fairly easily. 

If your computer is capable of defining graphic 
characters, you can create specific still compo- 
nents. These components can be whatever you 
need: electrical symbols for wiring diagrams, elec- 



tronic units, or even plumbing parts. They can be 
arranged on the video screen according to your 
wishes. The ease with which they can be manipu- 
lated makes them valuable for images with moving 
parts. 

The numbers that define each component are 
stored as an array under a variable name. When that 
component is needed, the computer locates the 
correct position on the screen and then uses the 
numbers from the array to print the still component 
on the video display. 

Chessmen as an Example— Programs 17 and 18 

Figure 6-2 is the display of a chessboard and 
Fig. 6-3 is a display of a chessboard with chess 
pieces on it. A chess game is a pefect example of the 
use of still components: the men have to be moved 
about on the screen, and the programmer can define 
the way the men are made to suit his personal 
wishes. The chess program that uses the pieces 
would control where the pieces are placed during 
the course of the game. 

We will not look at how we defined the 
chessboard or the chessmen, but we will present 
the BASIC programs that created them. Each dark 
square on the chessboard was made of eight rectan- 
gular graphic characters in a 2x4 array. Each 
chessman was made of a 2x2 array of four graphic 
characters that were defined by numbers in data 
statements. Since squares were either white or 
black, we had to make two sets of men: one for use 
on white squares and one for use on black squares. 
The men occupy the center of each square. You can, 
of course, change the way the chessmen appear by 
redefining them. 



1@ 


REM 


28 


REM 


38 


REM 


48 


REM 


58 


REM 


68 


PRINT 


78 


FOR J 


88 


FOR J 


98 


FOR K 


188 NEXT 



CHESSBOARD AND SCREEN DUMP 
WRITTEN BV TIMOTHV J. 0" MALLEV 
COPVRIGHT 1982, TAB BOOKS INC. 

PRINT CHESSBOARD ON SCREEN 

CHRt<12>; :P=-3892sL=-l 
=8 TO 3 1 : P=P+ 1 s POKE P , 1 76 : NEWT J : P=P+ 1 
= 1 TO 8s FOR M=l TO 2: P=P+31 : POKE P, 135 
= 1 TO 8s FOR N=l TO 4: F-P+l : POKE P.- < 177+145*L> 

N : L=NOT L : NEXT l< : L=NOT L : P=P+ 1 : POKE P , 1 28 
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110 L=HOT Ls|-)EXT l*|:L=NOT LsNEXT ,TsP=P+3I 
129 FOR J=i TO 32 sP=P+l SPOKE P. 137: NEXT J 

2@0 REM SCREEN DUMP TO PRINTER 

2 1 N 1 =3*2 •-' I NT < 6*RND < 1 > > 

220 POKE 260 , O " POKE 26 1,0: POKE 8 .- 62 : POKE 1 , 27 

230 POKE 2 ,205 s POKE 3,12s POKE 4 , 224 s POKE 5 , 20 1 

240 X=USR < > s POKE 1,65s X=USR < 8 > = POKE 1,2s X=IJSR >■. 8 > 

250 FOR J=l TO 29s CI =64*1-3968 s FOR L=~8 TO -1 

260 FOR K=0 TO 59s IF K>'i5=IHT*:K.''15> THEN GOSUB 398 

278 CN=PEEK< L-8*c:255-PEEK'::Cl+K> > > s FOR M=7 TO 9 STEP -1 

280 POKE 1 , N 1 *8GN < CN AND 2"t1 > s X=USR < > s NEXT M , K 

298 POKE 1,13s X=IJSR < > s NEXT L , J s POKE 1,12s X=IJSR < 8 > : RETURN 

300 POKE 1,27s X=USR < 8 > s POKE 1 , 75 " X=USR < 8 > 

3 1 8 POKE 1,128s X=I_ISR < 8 ':> s POKE 1,8s X==IJSR < 8 > : RETURN 

READ'/ 

18 REM CHESSBOARD AND SCREEN DUMP 

28 REM WRITTEN BV TIMOTHV J. O'MALLEV 

38 REM COPVRIGHT 1982, TAB BOOKS INC. 

48 REM 
45 REM CLEAR SCREEN 

58 PRINT CHR*<12>; 

52 FOR J=i TO 25 FOR K=l TO 8 s READ BDCJ, K> : NEXT K,J 
cjt; pop .T=7 jo RsFOR K=l TO 8 s READ E^DCJ, K> ° NEXT K.-J 

54 DATA 200 , 232 , 204 , 228 , 1 92 , 228 , 208 , 224 

55 DATA 236,212,236,212,236,212,236,212 

56 DATA 148, 172, 148, 172, 148, 172, 148, 172 

57 DATA 160,144,164,132,152,140,168,136 

59 REM READ IN GRAPHICS 

68 P=-3892 s L=- 1 s P 1 =P+66 

61 FOR J=-i@24 TO -68 is READ NsPOKE J, N: NEXT J 

62 FOR J=-512 TO -129s READ H: POKE J , N s NEXT J 

69 REM DRAW CHESSBOARD 

78 FOR ,T=8 TO 31 : F-P+l s POKE P, 188s NEXT ,Tsp=P+i 

80 FOR J=l TO 8s FOR M=l TO 2s P=P+31 : POKE P,176 

90 FOR K=l TO 8: FOR N=l TO 4s P=P+1 s POKE P, ( 177+1 45*L> 

188 NEXT NsL=NOT LsNEXT l<sL=NOT Lsp=P+lsPOKE P, 178 

i i 8 L = H T L = N E X T i • 1 » L — i -i T LsNEXT • J » P -~ F + 3 1 

120 FOR J=l TO 32: P=P+1 SPOKE P, 179: NEXT .J 

121 REM PLACE MEN ON BOARD 

122 FOR ,T=1 TO SsZl=Pl + 128*'-.:.J-l> 

123 FOR K=l TO 8s Z=Z1 +4*<K-1 > 

124 IF BDC.T,K>=8 THEN 127 

125 POKE Z, BDCJ, K>: POKE Z+l , BDCJ, K> + 1 

1 26 POKE Z+64 , BD < J , K > +2 : POKE Z +65 , BD < J , K > +3 

98 



127 


NEXT 


12S 


DATA 


129 


DATA 


13@ 


DATA 


131 


DATA 


132 


DATA 


133 


DATA 


134 


DATA 


1 JO 


DATA 


136 


DATA 


137 


DATA 


138 


DATA 


139 


DATA 


148 


DATA 


141 


DATA 


142 


DATA 


143 


DATA 


144 


DATA 


145 


DATA 


146 


DATA 


147 


DATA 


148 


DATA 


149 


DATA 


1 56 


DATA 


151 


DATA 


1 ■_'■£.' 


DATA 


153 


DATA 


154 


DATA 


155 


DATA 


156 


DATA 


157 


DATA 


158 


DATA 


159 


DATA 


1 68 


DATA 


161 


DATA 


162 


DATA 


163 


DATA 


164 


DATA 


165 


DATA 


166 


DATA 


167 


DATA 


168 


DATA 


169 


DATA 


170 


DATA 


171 


DATA 


1 r* j^! 


DATA 



8, 1,7, 1, 15,4,2, 14 

0,128,224,128 , 248 , 32 , 64 ,112 

2,2,2, 4 , 24 , 32 , 63 , 8 

64 , 64 , 64 , 32 , 24 , 4 , 252 , 

0, 1, 15,4, 2, 14,4,2 

, 1 28 , 240 , 32 , 64 , 11 2 , 32 , 64 

2 , 2 , 2 •• 4 , '"'4 ■• 3'"' n I-. 3 -i T1 

64 , 64 , 64 , 32 , 24 , 4 , 252 , 

0,0, 13, 13, 15,4,4,4 

, , 1 76 , 1 76 , 240 , 32 , 32 , 32 

4 , 4 , 4 , 4 , 8 , 16,31, 

32 ,32,32,32, 16,8, 248 , 

0, 1,2,4,2, 14,2,2 

, 1 28 , 64 , 32 , 64 , 112, 64 , 64 

2,2,2,4,8, 16,31,8 

64 , 64 , 64 , 32 , 1 6 , 8 .- 248 , 8 

8 , 8 ,8,3, 12,55, 57 , 2 

8 , 8 , 1 92 , 48 , 8 , 4 , 4 , 4 

4 , 8 , 8 , 4 , 8 , 16, 3 1 , 8 

8 , 16, 1 6 , 32 , 1 6 , 8 , 248 , 8 

8 , 8 , 8 ,8,3,4,4,2 

© , , 8 , 8 , 1 92 , 32 , 32 , 64 

14,2,2,4,8, 16,31,0 

1 1 2 , 64 , 64 , 32 , 16,8, 248 , 

85 , 1 69 , 87 , 161, 79 , 1 64 , 82 ,174 

85 , 1 38 , 229 , 1 38 ,245,42, 69 ,114 

82 , 1 70 , 82 , 1 64 , 88 , 1 60 , 63 , 1 70 

69 , 74 , 85 , 42 , 25 , 4 , 253 , 1 70 

85 , 1 6 1 , 79 , 1 64 , 82 , 1 74 , 68 , 1 62 

85 , 1 38 , 245 , 42 , 69 , 1 1 4 , 37 , 74 

82 , 1 78 , 82 , 164 , 88 , 1 68 , 63 , 1 70 

85 , 74 , 69 ,34,25,4, 253 , 1 70 

85 , 1 70 , 77 , 173,79, 1 64 , 68 , 1 64 

'_■•_' , irOj j. o J. , ± r o , ji^—i , *t j£ , •_> i" , "i'ji 

68 , 1 64 , 68 , 164, 72 , 144 , 95 , 1 70 

37 ,42,37,42,21, 1 ,249,1 70 

85 , 171, 86 , 1 72 , 82 , 174, 66 , 1 62 

85 , 1 70 , 85 , 42 , 69 , 1 22 , 69 , 74 

82 , 1 62 , 82 , 1 64 , 72 , 1 44 , 95 , 1 78 

85 ,74,85,42,21,18 , 249 , 1 78 

85 , 1 78 , 84 ,163,76,1 83 , 57 , 1 38 

85 , 42 , 1 97 , 58 ,9,4,5,4 

68 , 1 68 , 88 , 1 64 , 72 , 144, 95 , 1 78 

9 , 26 ,37,34,21,18, 249 , 1 78 

85 , 1 78 , 85 , 1 68 , 83 , 1 64 , 84 , 1 62 
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1 73 DATA 85 :■ 1 78 , 85 , 1 8 , 1 9? , 42 , 37 , 74 

1 74 DATA 78 , 1 62 , 82 , 1 64 , 72 , 1 44 , 95 , 1 78 

1 75 DATA 117.- 74 , 69 , 34 .- 17.-1 8 , 249 ,178 

1 76 DATA 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 

1 77 DATA 85 , 1 78 , 85 , 1 78 , 85 , 1 78 , 85 , 1 78 

178 DATA 128 ? 128.- 128:. 128? 128? 128.- 128? 128 

1 79 DATA 255 , 8 , 8 , 8 , 8 , 8 : . 8 .- 8 
1 88 DATA 8 , 8 , 8 , 8 , 8 , 8 , 8 , 255 

288 REM SCREEN DUMP TO PRINTER 

2 1 8 N 1 =3*2-- 1 NT < 6*RND < 1 > > 

228 POKE > 268 , 8 s POKE 26 1 , 8 : POKE 8 , 62 : POKE 1 , 2? 

238 POKE 2, 285 : POKE 3. 12s POKE 4, 224s POKE 5,281 

248 X=USR < 8 > s POKE 1 , 65 s X=USR < 8 > : POKE 1,2s X=USR < 8 > 

258 FOR J=l TO 29s CI =64* J -3968s FOR |_=~8 TO --1 

268 FOR K=8 TO 59s IF |<> 15=INT'::i<.-'15> THEN 60SUB 388 

278 CN=PEEI<<L--8*<255-PEEK<Cl+IO>>sF0R M=7 TO 8 STEP -1 

288 POKE 1 , N 1 *SGN < CH AND 2 A M > s X=USR < 8 > s NEXT M , K 

298 POKE 1,13s X=USR < 8 > : NEXT L , J : POKE 1,12s X=IJSR < 8 > : RETURN 

388 POKE 1,27s X=USR < 8 > s POKE 1,75s X=IJSR < 8 > 

3 1 8 POKE 1 , 1 28 s X=USR < 8 > s POKE 1 , 8 : X=U8R < 8 > " RETURN 

392 DATA 8,1,7,1,15,7,3,15 

393 DATA 8 , 1 28 .- 224 , 1 28 , 248 , 224 , 1 92 , 248 

394 DATA 3,3, 3 , 7 ,31, 63 , 63 .- 8 

395 DATA 192,192,192,224,248-252,252,8 

396 DATA 8 , 1 , 15, 7 .- 3 , 15,7, 3 

397 DATA 8 , 1 28 .- 248 , 224 , 1 92 , 248 , 224 , 1 92 

398 DATA 3,3,3,7,31,63, 63 , 8 

399 DATA 192,192,192,224,248,252,252,8 
408 DATA 8,8,13,13,15,7,7,7 

48 1 DATA 8 , 8 , 1 76 , 1 76 , 248 , 224 , 224 , 224 

482 DATA 7,7,7,7,15,31,31,8 

483 DATA 224 , 224 .- 224 .- 224 , 248 , 248 , 248 , 8 

484 DATA 8,8,1,3,7,3,15,3 

485 DATA 8 ,8,1 28 , 1 92 , 224 , 192, 248 , 1 92 

486 DATA 3,3,3,7,15,31,31,8 

487 DATA 192,1 92 ,192,224, 248 , 248 , 248 , 8 

488 DATA 8 ,8,8,3, 15, 63 , 57 , 3 

489 DATA 8 , 8 , i 92 , 248 , 248 , 252 , 252 , 252 
418 DATA 7, 15, 15, 7, 15,31 , 31,8 

411 DATA 248 , 248 , 248 , 224 , 248 , 248 , 248 , 8 

.< ^ •-. r-..-:-r.\ c-> ••» c* >r* t ~? "7 -r 

4 1 3 DATA 8 , 8 , 8 ,8,1 92 , 224 , 224 , 1 92 

414 DATA 15,3,3,7,15,31,31,8 

415 DATA 248,192,192,224,248,248,248,8 

416 DATA 85 , 169, 87 , 161,79, 167, 83 , 1 75 

4 1 7 DATA 85 , 1 38 , 229 , 1 38 , 245 , 234 , 1 97 , 242 
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4 1 8 DATA 83 , 171, 83 , 167 , 95 ,191 , 63 , 1 70 

419 DATA 197,282,213,234,249,252,253,178 
428 DATA 85 , 161, 79 , 1 67 , 83 , 175,71, 1 63 

421 DATA 85,138,245,234,197,242,229,282 

422 DATA 83 , 1 7 1 , 83 , 1 67 , 95 , 1 9 1 , 63 , 1 78 

423 DATA 213, 202 , 1 97 , 226 , 249 , 252 , 253 , 1 70 

424 DATA 85 , 1 70 , 77 , 173,79, 1 67 , 71, 1 67 

425 DATA 85 , 1 78 ,181,1 78 ,245,234, 229 , 234 

426 DATA 71,1 67 ,71, 167, 79 , 1 59 , 95 , 1 70 

427 DATA 229 , 234 , 229 , 234 , 245 , 250 , 249 , 1 70 

428 DATA 85 , 1 78 , 85 , 1 7 1 , 87 , 1 63 , 79 , 1 63 

429 DATA 85 , 42 , 149 , 282 , 229 , 202 , 245 , 202 
438 DATA 83 , 1 63 , 83 ,167, 79 , 1 59 , 95 , 1 70 

431 DATA 213,202,213,234,245,258,249,170 

432 DATA 85 , 1 78 , 84 ,163, 79 ,191 , 57,13 1 

433 DATA 85,42,197,242,249,252,253,252 

434 DATA 71,1 75 , 79 , 1 67 , 79 , 1 59 , 95 , 1 70 

435 DATA 249 , 250 ,245 , 226 , 245 , 258 , 249 , 1 78 

436 DATA 85 , 1 78 , 85 , 1 68 , 83 , 1 67 , 87 ,163 

437 DATA 85,170,85,10,197,234,229,202 

438 DATA 79 , 1 63 , 83 , 1 67 , 79 , 1 59 , 95 , 1 78 

439 DATA 245,202,197,226,241,250,249,178 
READS-' 
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Fig. 6-2. A chessboard. 
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Fig. 6-3. A chessboard with chessmen. 

MATHEMATICALLY DEFINED ART 

Computers are mathematical tools and as such 
they can compute numbers at high speed. Comput- 
ers can use their talents to draw pictures, provided 
that those pictures are defined mathematically. If a 
program can be written that will enable the com- 
puter to use numbers to draw images, the artist will 
have a new tool at his disposal. 

We will now look at a few BASIC programs 
that display realistic and abstract art. By realistic, 
we mean resembling reality, the world as we see it. 
By abstract, we mean an exaggeration of realitv, an 
unreality, if you will. Both have their proper place 



A Realistic Low-Resolution Program in BASIC 

Program 8, the low-resolution perspective 
line plotter in Chapter 4, which showed a pyramid, 
a cube, and two diamonds, is an example of a realis- 



tic low-resolution art program. It is considered 
low-resolution because we used asterisks instead 
of special graphic characters to show positions of 
points. Please refer back to it as an example of 
realistic low-resolution art. 

A Realistic High-Resolution 
Program in BASIC— Program 19 

Figures 6-4 to 6-6 are show figures produced 
by a realistic high-resolution art program. Although 
the images in Figures 6-5 and 6-6 are larger than 
that in 6-4 the 17 sre of slight!'* 7 ' lower resolution. 
They also have an additional feature; they contain 
three types of shading: solid black, gray, and white. 
This is a trinary color scheme, not a simple binary 
one. The solid black represents the void of space, 
and the gray, the black areas of the ship. The white 
areas are the white area of the ship. Figure 6-6 is a 
longer version of Figure 6-5. It is 50% longer. 
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10 REM HIGH RESOLUTION REALISTIC ART 

29 REM WRITTEN BV TIMOTHY J. O'MALLEV 

30 REM COPYRIGHT 1982, TAB BOOKS INC. 
40 REM 

SO PRINT CHR*<12> 

60 GOSUB 3000s REM BLANK GRAPHICS 

7© GOSUB 2000 s REM PLACE GRAPHICS ON SCREEN 

80 GOSUB 1000s REM DEFINE GRAPHIC SET #1 

90 GOSUB 1 OOO s REM DEFINE GRAPHIC SET #2 

100 PRINT CHR*<12>;:REM BLANK SCREEN <SOME CAN USE CLS> 

110 GOSUB 4000 s REM DEFINE TRINARV GRAPHICS 

120 GOSUB 5000s REM READ DATA FOR IMAGE 

190 END 

200 DATA 88 

210 DATA 24,8, 1,3, 7,7, 15. 14,30, 112,252,246, 143,248,8,8,31 

220 DATA , 9 , O , , 1 28 , 1 92 , 32 , 1 60 

230 DATA 104 

240 DATA 24 ,31.- 56 , 32 , 32 , 33 , 33 , 97 , 97 , 43 , 48 , , , 255 , , , 8 

250 DATA 288 , 24 , 8 , 228 , 252 , 66 , 66 , 66 

260 DATA 96 

270 DATA 32 , 8 , 0,0, 1 , 1 , 1,3,3, 97 , 225 , 225 , 225 , 225 , 225 , 225 , 225 

280 DATA 8 , , , 255 , , , , , 66 , 66 , 66 , 253 , 66 , 66 , 66 , 66 

290 DATA 96 

308 DATA 32,3,7,7, 11, 11, 19,35,68,241,241,241,241,241,241,241 

, 17 
3 1 DATA 8 , , 255 , 8 , , 8 , 8 , , 66 , 66 , 252 , 66 , 66 , 66 , 66 , 66 
320 DATA 88 

338 DATA 64 , , , 8 ,8,3, 1 2 , 1 9 , 36 , 1 , 6 , 27 , 1 08 , 1 76 , 1 92 , 8 , 8 
348 DATA 1 52 , 224 , 8 , 8 ,8,8,8,8, 17, 17, 17, 17, 1 7 , 33 , 33 , 33 
358 DATA 8 , 255 , , , 6 , , 8 .- 8 , 66 , 254 , 7 1,66, 66 , 66 , 66 , 66 
360 DATA , © , 1 28 , 1 92 , 48 ,24,6,3, 8 , 8 , , , 8 , 8 , 8 , 1 28 
378 DATA 64 
388 DATA 64 , 72 , 96 , 1 1 2 , 255 , 1 35 , 224 , 3 1 , 8 , 8 , , 8 , 255 , 255 , 35 .- 1 68 , 

126 
390 DATA , , , , 254 , 255 , 3 , 3 , 35 , 38 , 36 , 36 .- 48 , 232 , 280 , 200 
400 DATA 255 , , , , , , , 8 , 254 , 1 26 , 115, 92 , 78 , 67 , 65 , 64 
4 1 8 DATA , , , 1 28 , 96 , 96 , 255 , 1 27 , 224 , 1 1 2 , 28 , 14,6,3, 255 , 255 
428 DATA 72 

430 DATA 56 , 1 , , , , 8 , 8 , 8 , 8 , 243 , 13,5,5,3,3,8, 8 
448 DATA 281 , 217, 254, 24S, 248, 255, 127, 1,255, 152, 136,248,31 

, 247 
458 DATA 248,255,216,37,49,24,247,224, 192, 128,28, 12, 199,54 
468 DATA 142, 1 02 , 30 , 8 , 3 , 38 , 224 , 8 , 8 , 8 , 8 , 8 
478 DATA 1 28 
508 DATA 49 
518 DATA 23, 1,3,6, 15, 12,24, 17, 112,252, 174, 115, 143, 1,8,252 
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526 DATA 8,8, , 8 , 1 28 , 1 28 .- 1 92 , 64 

530 DATA 104 

540 DATA 24 , 54 , 38 , 32 , 32 , 63 , 32 , 96 , 96 , 1 7 1 , 1 1 5 , O , 2 1 6 , 255 , 32 , 32 

550 DATA 32 , 96 , 32 , 32 , 32 , 224 , 32 , 48 , 48 

560 DATA 99 

570 DATA 29 , 1 , 1 , 1 , 3 , 3 , 96 , 224 , 224 , 255 , 224 , 224 , 224 , 224 , 32 , 32 

580 DATA 255 , 32 , 32 , 32 , 32 , 48 , 56 , 56 , 252 , 68 , 60 , 62 , 62 

590 DATA 96 

&QQ DATA 49 ,7,7, 1 5 , 15- 23 - 23 - 39 - 72 - 224 , 224 - 255 - 224 , 224 , 224 

6 1 DATA 224 , 32 , 32 , 32 , 255 ,32,32,32, 32 , 32 , 63 , 63 , 255 , 63 , 63 

620 DATA 63 , 63 , 32 , , , 1 28 , 1 28 , 64 , 64 , 32 , 1 6 

630 DATA 76 

640 DATA 68 ,1,6,27,108,1,6,27,1 08 ,176,192,8,0,1 76 ,192 

650 DATA 0, 08, 0, 0, 0, 0, 32, 63, 32, 32, 32, 32, 32, 32, 32, 255, 32, 32 

660 DATA 32 , 32 .- 32 , 224 , 32 , 32 , 32 , 32 , 32 ,32,1 08 , 27 , 6 , 1,0,0, , 8 , 

? 9 

670 DATA 1 92 , 1 76 , 1 08 , 27 , 6 , 1 , , , , , © , , 1 92 , 1 76 

680 DATA 48 

690 DATA 79 , 1 , 3 , 6 , 7 , 7 , 6 .- 3 , 9 , 176, 64 , 1 28 , 255 , 255 , 1 , 254 , 1,0, , 

.- 8 , 8 
718 DATA , 8 , 255 , 32 , 32 , 112, 112, 112, 112, 112, 248 , 24 ,4,7,3,3,2 

,2,0 
728 DATA , , 255 , 255 , 255 , , 15, , , , 255 , 255 , 252 ,19, 252 , 1 88 

,22, 11 
738 DATA 255,255,3,247 
740 DATA 73 
750 DATA 33 , 127,3,3, , 8 , , , ,127,111,1 98 , 246 , 227 , 65 , 127,8 

, 255 
768 DATA 1 1. 9 , 115, 115, 254 , 252 , 255 ,32,247, 1 82 , 38 , 1 28 , 56 , 16, 248 
778 DATA , 240 
788 DATA 183 

J.OCO f-.ci i L'"C.ij.nc ai\nr n x •_■•» 

1 £i 1 8 A = — 1 8 25? M = 8 
1828 FOR J==l TO 15s READ ZsH=8 
1838 FOR K=l TO Z:A=A+lslF M<8 THEN READ N 
1848 POKE A,H 

1858 NEXT K:M=HOT<M>:NEXT J 
1868 RETURN 

2888 REM PLACE GRAPHICS OH SCREEN 

2818 F8R Q=192 T8 1216 STEP 512 
2828 F8R P=Q-3968 TO Q-3928 STEP 16 
2838 L=127 
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2@4© FOR J=P TO P+511 STEP 64 

2050 FOR K'=8 TO 15 

2060 L=L+1 

2070 POKE <.J+K>,L 

2080 NEXT K,.J,P,Q 

2090 RETURN 

30O0 REM BLANK GRAPHICS 

3010 FOR .J=~-1024 TO -1 

3020 POKE J , 

3030 NEXT J 

3040 RETURN 

4080 REM DEFINE TRINARV GRAPHICS 

4010 FOR ..T=-l@24 TO -is POKE J, s NEXT J 

4020- FOR R= 1 TO 4 : ,T=0 s M=3"'" C R- 1 > 

4030 0=0 

4040 FOR l<= 1 TO M : H=.J*8- 1 024 : N 1 =N- < R >2 > +4 

4050 N2=N+3--:;R>2>*4s IF 0=8 THEN 4120 

4060 IF 0=1 THEN N3=i60KR,--2=IMTXR.- 2> >*15@ 

4070 IF 0=2 THEN N3=240+<R.--2=INT<R-'2.:' >*225 

40S0 Z=0s|-OR P=H1 TO H2 

4090 I FU= 1 THEN POKEP , < PEEK. < P ':> OR < N3 ■- ■:'. 1 ~Z > > > s Z=NOTZ s G0T04 1 1 8 

41O0 POKE P, <PEEK<P> OR N3> 

4110 NEXT P 

4120 .J=.J+ 1 : NEXT K" 0=0+1 s IF 0<3 AND J<81 THEN 4040 

4130 IF 0=3 AND J (81 THEN 4030 

4140 NEXT Rs RETURN 

SOOO REM READ DATA FOR TRINARV IMAGE 

5010 FOR J=l TO 20 s FOR I<=1 TO 27 

5020 READ XX : PR I NT TAB ■:: 20 > ' CHR* < XX > S 

5030 NEXT K spRIHT's NEXT Js RETURN 

6000 REM DATA FOR TRINARV IMAGE 

60 1 DATA 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 

6020 DATA 1 64 , 1 68 , 1 65 ,137,1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 

6830 DATA 128,128,128,128,128 

6840 DATA 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 94 

6050 CJ AT A 204, 208, 178, 168, 137, 128, 128, 128, 128, 128, 128 

6060 DATA 128,128,128,128,128 

6070 DATA 128, 128, 128, 128, 128, 128, 128, 128, 128, 167, 172 

6080 DATA 172, 1 99 , 208 , 1 68 ,165,1 28 , 128, 1 28 , 1 28 , 1 28 , 1 28 

6890 DATA 128,1 28 , 1 28 , 1 28 , 1 28 

6100 DATA 1 28 ,128,1 28 , 1 28 , 1 28 , 1 28 ,128,1 28 , 1 58 , 1 88 , 1 99 

611 DATA 293 , 204 , 208 , 288 , 1 77 , 1 28 , 1 28 , 1 28 , 128, 1 28 ,128 

6 1 28 DATA 128,1 28 , 1 28 , 1 28 , 1 28 

6 1 38 DATA 128,1 28 , 1 28 ,128,1 28 , 1 28 , 1 28 , 1 28 ,195,1 77 , 284 

6 140 DATA 204 , 204 , 177, 208 , 1 78 , 1 38 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 

6150 DATA 128,128,128,128,128 
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6160 DATA 
6170 DATA 
6180 DATA 
6190 DATA 
6290 DATA 
62 1 DATA 
6220 DATA 
6230 DATA 
6240 DATA 
6250 DATA 
6260 DATA 
6270 DATA 
6280 DATA 
6290 DATA 
6390 DATA 
6310 DATA 
632:0 DATA 
6330 DATA 
6340 DATA 
6350 DATA 
6360 DATA 
6370 DATA 
6380 DATA 
6390 DATA 
6400 DATA 
6410 DATA 
6420 .DATA 
6430 DATA 
6440 DATA 
6450 DATA 
6460 DATA 
6470 DATA 
6480 DATA 
6490 DATA 
6500 DATA 
6510 DATA 
6520 DATA 
6530 DATA 
6540 DATA 
6550 DATA 
6568 DATA 
6570 DATA 
6580 DATA 
6590 DATA 
6600 DATA 
READV 
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Fig. 6-5. A shortened trinary-colored space shuttle. 

Let's look at the program listing. Lines 10-40 
are remarks about the title and credits for the pro- 
gram. After a clear screen command in line 50, the 
computer goes to the subroutine that starts at line 
3000. This sets all the user-defined graphic charac- 
ters to zero, or blank. Line 70 goes to the sub- 
routine at line 2000 which pokes those blank 
graphic characters on the screen. Lines 80 and 90 
define the graphic character set that is currently 
displayed on the screen. The characters change on 

thp Qrrppn ac HtA rtaf-p cfsfpm^nf-c pro r&">A fnr fVio 

points of the graphic characters. These are binary 
graphic characters. Line 100 blanks the screen 
again. Line 110 defines the trinary graphic charac- 
ters for the Figures 6-5 and 6-6. Line 120 reads the 
data for the image and prints the characters on the 



screen. Line 190 ends the program. Lines 200-780 
are data statements for the first set of images. 
Lines 1000-1060 define the graphic characters for 
the binary images. Lines 2000-2090 place them on 
the screen. Lines 3000-3040 blank those graphic 
characters. Lines 4000-4140 define the trinary 
graphics. Lines 5000-5030 read data for the trinary 
image. The numbers in the data statements m lines 
6000-6600 are the code numbers of the graphic 
characters used in the image. 

An Abstract Low-Resolution 
Program in BASIC— Program 20 

This program prints low-resolution abstract 
figures using asterisks as shown in Figures 6-7 and 
6-8. 
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Fig. 6-6. A trinary-colored space shuttle. 
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Fig. 6-7. Two overlapping polar coordinate figures. 



ABSTRACT, LOW-RESOLUTION ART 
JRITTEN B'v' TIMOTHV -J. O'MALLEV 
::OPVRIQHT 19S2, TAB BOOKS INC. 



10 REM 

29 REM 

30 REM 
40 REM 

45 QOSUB 500s REM DISPLfW AND QUESTION 

50 DIM K<500> , S"::500>sREM RESERUE SPACE FOF 



' TO 508 POINTS 
ES PLOTTED 



70 READ Ms REM NUMBER OF DIFFERENT FIQURI 

30 PRINT CHR*<12>5 s FOR 1-1=1 TO N 

90 READ M , R , P , S :■ D : REM MAGI! I F I CAT I ON , ROT AT I ONS , PO I NTS , S I Z I NG 

, D I SP 
100 C=6.28319*RSREM TOTAL ROTATION IN RADIANS 
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lie 

128 
13@ 
1 49 
150 
1 68 
1 78 
188 
198 
288 
218 
228 
238 
248 
258 
268 
278 



FOR J=C-'P TO C STEP OP 

L== ABS < S I H < 8 . 5*M* J > > *. REM D I STANCE OF PO I NT FROM OR I G It 

K=K+l!REM INCREMENT COUNTER 

X < K > =L*28*C0S C T+D :•■ s REM OR I G I HAL NOR I ZOITT AL POS I T I ON 

V ■:: l< > =L% 1 4*S I N ■:: J+D ;■■ s REM OR I G I HAL UERT I C AL POS I T I OH 

i f s= i then x <: i< > =x < k > *jvc s v < i< > =v <: i< > * jvc 

IF S=-l THEN XOO=X<IO*'i: 1~.J./C> ; V < IO =V < K > * < 1 JVC:.' 

X 00 = I NT '!>:>:; I-O +28.5 > 



VOO = IHT 



IO + 14.5 



:.iyw 


388 


318 


328 


338 


348 


358 


y.fi.tt 



378 
380 
390 

400 

410 
420 
430 
448 
588 
518 
528 
538 
1548 
558 
568 

588 
590 
688 
618 



NEXT J, H 

FOR J=i TO !< 1 

FOR H--.J+1 TO l< 

if vcj>>V':h> then 288 
if v(jxv(h) then 268 
if !«jx=x(h) then 288 

ft==X < J > s y. >■[ J ::■ =;:-=; >.; |-| ;-i 5 y >r 1-1 > -~a 
b=v •:: J > : v •:: j ;■ ==v < h y s v ■■: h > =b 

NEXT H,J 

J=l s GO SUB 398 

FOR J=2 TO K 

IF V ■:: J- !>>'•,'<. J :■ THEN GOSUB 358 

1 F X <. J > < >X >:: J 1 > AND V C J > < ='■■' < J 1 > T'HEH GOSUB 398 

NEXT J 

EHD 

FOP l-NVCJ) TO VCJ-i ':■ -1 

PRINT 

NEXT l-l 

RETURN 

PR iNi rr-iB';Xf..j>:.'" "*"; 

RETURN 

DATA 3: REM H 

DATA 6? 1 :■ 120 : . 8 : . 8 
DATA 3.- !:■ 68:. @, 1.8472 

DATA 8„ 81 :• 1 :■ 58:. 8:. 8 

REM DISP! 07 OHD QUEST I OH 

PRINT CHR:;K12>; 

PR I H T : PR I NT s PR 1 1 IT s PR I NT 

PRINT TAB<15>? 

PR I NT " ABSTRACT , LOW RESOLUT I ON ART " 

PRINT TAB<14>; 

PRINT "WRITTEN BV TIMOTi-IV J. O'MALLEV" 

PRINT TAB<14>? 

PRINT "COPVRIGHT 1982:. TAB BOOKS INC." 

PR I NT sPRIHT -PR I NT 

INPUT "DO VOU WANT INSTRUCTIONS <VES OR MO? "5 AN* 

IF AH*="HO" THEN RETURN 
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628 
638 
640 

650 

66S 
676 
680 
690 
708 
710 
720 
730 
746 
750 
769 
REAI 



PRINT 

PRINTS 

PR I NT 

plots. 

PR I NT 

number 

PRINT 

PRINT 

PR I NT 

PRINT 

PRINT 

PR I NT 

PR I NT 

PRINT 

PRINTS 

INPUT 

RETURI- 



PINT 

T hi i s p r o ^ r a n> p r i n t s o u t p o lar c o o r d i n a t e 

1" h e I- e a r e s e ••.•• e r a 1 p a r a m e t e r s 5 N , w h i c h i s t h e 

o f d i f f e r e n t f i s u r e s p 1 o 1 t e d t o b e t h e r 5 M .- w h i c h is" 
a in u 1 1 i p I i c a t i o n f a c t o r f o r t h e r a d i a n s o f the" 
rotation? R.- which is the number of complete " 
i o t a t i o i -i s ; P :• w h i c h i s t h e n u iti b e r o f po i n t s in" 
e a c h f i s u r e " S ? w h i c h i s f o r 3 r o w i n 3 o r s h r i n k i n s ' ' 
l = i b u r e s a s t h e y r o t a t e a b o u t t h e o r i s i n " a n d D ? 
which is the displacement.-, in radians-:, of the" 
figure about the origin when plotted." 
R I NT SPRINT 
W he n f i n i s hed read i ns , p i-ess RETURN - OK " 5 AN* 



*+ * * 
* * 



* * * * 



** 



* * 

* 



* * 

* * 

* * 

* * 



-t-- -v- 



* 
:+: * 

* * * * 



:+: * 

** * * 



Fig. 6-8. A single polar coordinate figure. 
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Let's look at the program. Lines 10-40 give the 
title and credits in remark statements. Line 45 is a 
subroutine call to line 500. Line 50 is a dimension 
statement which reserves memory space to hold 
the coordinates for up to 500 points. Line 60 sets 
the point counter to zero. Line 70 reads the number 
of different figures to be plotted on the same graph. 
Lines 80-200 contain two nested loops which read 
in the data and compute the coordinates of the 
points. The loops also sort the points so that they 
can be printed from top to bottom, and from left to 



short program that we will examine now. These 
figures resemble moire patterns but were produced 
in a different way. The program is very simple. 

Lines 10-40 give the title and credits. Line 50 
calls a subroutine at line 300 which sets up a 
machine-language subroutine to pass numbers to 
the printer. Line 60 calls the main program at line 
100. Line 70 ends the program. We can change this 
program to a low-resolution program that does not 
use a machine-language subroutine, but let's look at 
the main program a bit first. 



MOIRE PATTERNS 
WRITTEN BV TIMOTHY J. O'M ALLEY 
COPYRISHT 1982, TAB BOOKS INC. 



10 REM 

28 REM 

36 REM 

48 REM 

58 GOSUB 388; REM INITIALIZE PROGRAM 

68 GOSUB 100: REM MAIN PROGRAM 

70 END 

180 REM MAIN PROGRAM 

105 FOR P=8„ 1 TO 1.0 STEP 8.1 



120 FOR X=--248 TO 239; IF :<--"88= I NT OC-- 88 > THEN GOSUB 408 

13© R= I NT < < 1 E7* < Y2+X*X > ) ""P > 

140 IF R.--2-INT'::R,-2> THEN POKE 1 , HI s XX=USR<8> : GOTO 178 

1 68 POKE 1 , 8 : XX~USR < 8 > 

1 78 NEXT X ; POKE 1,13; XX=USR < 8 > s NEXT V : POKE 1,12s XX=USR < 8 > 

188 NEXT P;END 

380 REM INITIALIZE PROGRAM 

318 HI =2; REM PIN POSITION USED FOR PRINTING 

328 POKE 268 , 8 s POKE 26 1,8; POKE 8 , 62 " POKE 1 , 27 

338 POKE 2 , 285 s POKE 3,12; POKE 4 , 224 s POKE 5,281 

340 :m;x=I.JSR < 8 > ; POKE 1,65; XX=USR ■: 8 > s POKE 1,1: XX=USR <&":> 

358 RETURN 

488 POKE 1,27; XX=USR < 8 > : POKE 1 , 75 : XX=USR < 8 > 

4 1 POKE 1,88; XX=USR < 8 > : POKE 1 , 8 : XX=USR < 8 > : RETURN 

READY 



right. Lines 290-400 include the lines that print out 
the final figures. The data statements in lines 410- 
440 contain information concerning what to plot. 
Lines 500-760 give the instructions. 

An Abstract High-Resolution 
Program in BASIC— Program 21 

Figures 6-9 to 6-17 were all made by the same 



In lines 100-180 of the main program, we have 
three loops that are nested. The first loop, contain- 
ing the variable P, is for the power of a number in 
the program. The Y and X loops are for the X and Y 
coordinates. Line 130 computes R, which is the 
integer of 1E7 times X squared plus Y squared to 
the power of P. Line 140 says that if R is an even 
number, print a dot; line 160 says otherwise, print a 
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blank dot. It's that simple! You could change the 
program so that it would print an asterisk if R was 
even and a space if R was odd. Then you would not 
need to use high-resolution graphics or machine- 
language subroutines to pass numbers to the 
printer. In all of these figures the dark points are 
where even numbers are found, and the light points 
are where odd numbers are found. 



Another Abstract 

High-Resolution Art Program— Program 22 

Figure 6-18 shows the result of rotating and 
shrinking a triangle. This figure was made by dis- 
playing user-defined graphic characters on the 
screen and then doing a screen dump to place the 
figure onto paper. The triangle is turning clockwise 
as it is shrinking. Let's briefly look at the program. 



16 REM 
20 REM 
30 REM 
40 REM 
50 GOSUB 300 s REM 

8 G S U B 8 ! R E M 

9 © G S U B 5 : R E M 
1 8 G S U B 1 2 9 i 
110 GOSUB 1680! 
298 END 
308 REM 
305 I P=72 
307 IA=128 
310 DIM KIA),! 
320 FOR .J=l TO 



550 

588 
581 



384 
385 
386 

400 



HIGH RESOLUTION ABSTRACT ART 
WRITTEN BV TIMOTHV J. O'MALLEV 
COPVRIGHT 1982, TAB BOOKS INC, 



I N I T I AL I ZE UAR I ABLES 
TRANSLATE K,V,Z TO H, U 
BLANK GRAPHICS 
DRAW LINES CONNECTING POINTS 



REM 

REM DUMP GRAPHICS TO PRINTER 

1 N I T I AL I ZE UAR I ABLES 



kip: 
ip i 



< I P > .- Z < I P > r R < 3 > , U < I P > =. H < I P > 



STEP 

100> 



325 M = E >-, P < < 3 O O - -J > , 

326 0=JV"13 

330 :«:•; j>=m*sin<:o> 

331 VCD =8 
3 3 2 Z < J ":.< = M * C S <. O "> 

334 X<J+1>=M*SIHC 

335 V ,- ;.J+i::'=0 

336 Z< J + 1 > : = M * C s >: : 

337 XCJ+2>=M*SINO 

338 V<J'+2;'"8 

3 3 9 Z <.J + 2 > = M * C S ( 4 . 188 8 + > 
348 NEXT J 



0944+0 > 

0944+0 > 
1888+0;:' 



I 1=1: I 2=2 s 13=3 
FOR J=l TO I A STEP 

KJ) = I1 
ICJ + 1> = I2 
I':;j+2> = 13 
KJ+3) = I1 

I < J+4>=8 

II = 11+31! 12=12+3:: 13= 
NEXT J 



420 R<l>=18sR 



13+3 
::■ = 1 4 
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438 
448 
45© 
460 
470 
480 
498 

500 

518 
528 
530 
540 
550 
560 
570 
5S8 
598 
608 
6 1 8 
628 
638 
648 

668 
678 
6S8 
698 
788 
718 
728 
738 
748 
758 
888 
8 1 8 
828 
838 



X ■:; 8 > = 1 8 s V < > =—58 » Z ■; 8 > =7 

F=. 1SG--100 

S=lsT=IP 

W=15. 375s U=7. 875: REM WIDTH AMD HEIGHT OF SCREEI 

E=9 . 4 : REM ROT AT I ON I I' ICREMENT 

RETURN 

REM BLANK GRAPHICS 

PRINT CHR*<12>5 s REM BLANK SCREEN 

POKE 3968, 32 5 REM ERASE CURSOR FROM SCREE!'! 

FOR .J=-1824 TO -1 

POKE J, 8 

NEXT J 

FOR ,T=8 TO 127s REM PLACE GRAPHICS ON SCREEN 

POKE CJ~-3248+48*IHT'::.J.--16::' :■ , U+128/ 

NEXT J 

RETURN 

REM ROTATE POINTS ABOUT AXIS 

FOR J=S TO T 

I F B*= " Z " THE!' I A 1 =X k J > s A2=R < 1 > s A3== V '.: J > s A4 = R ■: 2 > 



IF B*=' 



THEN A 1 =X ■:: J > : A2=R < 1 > : A3=Z < J > s A4=R < 3 > 



I F B*= " X " THEN A 1 =V < J > : A2=R C 2 > » A3=Z < J > : A4=R < 3 > 

L-SQR < P 1 *P 1 +P2*P2 > 

ip P2=8 THEN A5=8— <P1<8>*3. 141593 

IF PI =8 THEN A5=S6N<P2>* 1.57S796 

I F P2< >8 AND P 1 < >8 THEN A5= ATN < P2--P 1 > - < P 1 < 8 > *3 . 1 4 1 593 

A5=A5+E 



fcCOS C A 5 '■> +R ( 1 


■ s V < J :: 


=L* 


+C0S(A5>+R( 1 


> s z < j ; 


ML* 


•frCQS ,: ! Pi 5 J' +R c. 2 


i s 2 < j ; 


=L* 



S I N C A 5 !> +R < 2 > 
SIH<A5>+Ri::3> 

SIH<A5>+R<:3> 



V,Z TO H,U 



IF B*="Z" THEN XOJ>=U' 
IF B*="V" THEN XCJ>=U' 
IF B*="X" THEN V<J>=L* 
NEXT J 
RETURN 

REM TRANSLATE 

FOR J=l TO IP 

D V= V < J > - V < 8 > s I F D V< =8 THEN F'R I NT " DECREASE V < 8 > " : STOP 
DX=X< J>-X<8> 
840 DZ=Z •'■. J > -Z < > 

OKtfl » I ,-' T "•■ — !T;*AT"-.I' 1 Tr*r.~' •r-.i ,t \ » |-tl~M MrriTTr-,-\| .--,-•!-, i— r"f. i i-. >•-<<•-• r -r t r-si. t 
•-"-'■-■ -."•-■_•." ■_!••-!-! i i i --. i •-l.-i^."- u-- » .-- » ■ --. i—. i l --.-■l—r-. I J. »_- 1— 1 1 — O'-'i'-Xt-l'l I'-JOJ. I J.'~'!"1 

868 H'::,t::'=G*ATN'::F*DX.-DS-'>sREM HORIZONTAL SCREEN POSITION 

878 NEXT J 

888 M I NU=U •: 1 > s MAXU=U < 1 ":• 

898 M I NH=H < 1 > : MAXH=H < 1 > 

988 FOR J=l TO IP 

918 IF U-CJXMINU THEN MINU=UCJ> 

928 IF U'CJiOMAXU THEN MAXU=U<.J> 
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930 IF HCJXMIHH THEN M I NH=H < J > 

948 IF H<.J>>MAXH THEN MAXH=HCJ::' 

950 NEXT J' 

960 DH=MAXH--MIMH 

970 DU=MAXU--MINU 

980 FOR J=l TO IP 

990 H (. J :> = < H < J > -M I HH ':> ■■ "DH*W 

1 000 U ■:! J > = < U < J > -M I HU > ■••DU*U 

1110 NEXT J 

1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 

1210' FOR J=I TO IA-1 

1220 IF I(J)=@ OR KJ+l>=e THEN 1340 

1 230 HH=H •: 1 OJ+ 1 > > -H < I < J > > 

1 240 W=U < I < -J+ 1 > ':■' - <■. I< J > > 

1250 SN=SGI-KHH> 

1260 IF SN=@ THEN 136© 

1270 M=UU.HH 

1 280 B=U < I ( J > > ~-M*H >■. I < J > > 

1 290 SP=SQR < UU*UU+HH*HH > 

130O FOR K=H< I <.J>> TO H<I<J+1)) STEP @. 125+HH-'SP 

1310 F~M*K+B 

1320 GOSUB 150O 

1330 NEXT K 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INFINITY 

1370 K=H'i:iCJ>> 

1380 IF SGN<UU>=@ THEN F-l-K KJ) > : GOSUB 1 5O0" GOTO 1349 

1 390 FOR F~U < I < J > > TO U ( I < J+ 1 > > STEP 9 . 1 25*SGN < W > 

1400 GOSUB 150O 

1410 NEXT P 

1420 GOTO 1340 

1430 GOTO 1310 

1500 REM PLOTTING SUBOUTINE 

1510 IF P>U OR P<0 OR IOW OR K<8 THEN RETURN 

1 520 G!= I NT < K > *S- 121-128+1 NT < P > - 1 NT ( 8* < P- 1 NT < P > > > 

1 530 POKE Q , •: PEEK < Q > OR 2 A C 7- 1 NT < 8* < K- I NT < K > > > > > 

1540 RETURN 

1600 REM DUMP GRAPHICS TO PRINTER 

1 6 1 POKE 260 , 8 s POKE 26 1 ? s POKE O > 62 s POKE 1 ■> 27 

1 620 POKE 2 , 205 s POKE 3,12s POKE 4 , 224 s POKE 5 =. 20 1 

1 638 X=USR '; 8 ;> : POKE 1 ? 65 s X=USR < > " POKE 1 ? 2 s X=USR < O > 

1648 FOR M=8 TO 63". Cl = 120*IHT<M--8>-1024+M 

1 65© FOR P=8 TO 1 : C2=C 1 +64*P s POKE 1,27s X=USR < > 

1 660 POKE 1 .- 75 s X=USR < O > s POKE 1 > 64 s X=USR < > s POKE 1 , 8 
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1679 X=USRc.'8> ° FOR .1=8 TO 



C 3 = P E E K < C 2 + 8 * J > 



1680 FOR N=7 TO 8 STEP ~1 

1898 POKE l,3*3GN'::2-"-M AND 83 > 

1 788 X=USR < 8 > : NEXT N .- J , P : POKE 1,13: X=USR '■ 8 : 

1718 NEXT M : POKE 1,12s :K=IJSR C 8 > : RETURN 

READ',-' 




Fig. 6-18. Abstract art, the rotating shrinking triangle. 

First the program sets up the arrays and vari- 
ables using the subroutine in lines 300-490. It com- 
putes the coordinates of the three vertices which 
the program will later rotate about an axis. The 
subroutine in lines 800-1120 translates these coor- 
dinates into a horizontal and vertical position, just 



as the perspective line-plotting programs did. 
Lines 500-590 blank the graphic characters and 
then place them correctly on the screen. Lines 
1200-1420 draw lines connecting the vertices for 
the sides of the triangle. Lines 1600-1710 are a 
screen-dump routine which sends the image to the 
printer. 

You might change some of these lines to pro- 
duce a low-resolution program. Use the low- 
resolution perspective line plotter in Chapter 4 as a 
guide. 

A Final High-Resolution 

Abstract Art Program— Program 23 

The images in Fig. 6-19 are the results of 
running the next program. These two images are 
oscillating lines that spiral clockwise to the center 
of the figures. Notice that in the lower image the 
lines on the right half have turned white instead of 
black and the lower part of the image has half of the 
vertical columns of lines missing. 



18 
28 
38 
48 
58 
88 
98 
1 88 



REM 
REM 
REM 
REM 
80SUB 
GOSUB 
80SUB 
GOSUB 



HIGH RESOLUTION ABSTRACT ART 
WRITTEN BV TIMOTHY J. O'M ALLEY 
COPYRIGHT 1982, TAB BOOKS INC. 



300 
888 
588 



1 1 fi GOSUB 
1 28 GOSUB 
138 GO SUE« 



REM 
REM 
REM 
12805 REM 

1 Afifi S f?F|v| 

2880 s REM 

1688* PRINT 



148 END 

388 REM 

385 IP=388 

387 IA=IP 

318 DIM I(Ift>,X 



I RE- 



INITIALIZE UARIABLES 

TRANSLATE K,Y,Z T8 H,U 

BLANK GRAPHICS 

DRAW LINES CONNECTING POINTS 
DUMP GRAPHICS TO PRINTER 
ALTER GRAPHICS BY SHADING 
CHR$'v 12'-' 

INITIALIZE UARIABLES 



< IP* , Z< IP* , R<3> , i.K IP> , H< IP> 
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329 
._j.._ lC _ 

326 
330 

-«* O j£ 

335 
336 
348 
350 
380 
381 

428 
430 
448 
458 
468 
478 
488 
498 

506 

510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

6 1 
620 
630 
648 
658 
€•68 
670 
680 
690 

700 

710 
720 
730 



IP STEP 2 
J> -'108} 



M " R < 3 > = 1 4 
■50: Z<0>=7 



i 75s REM WIDTH AND HEIGHT OF SCREEN 
INCREMENT 



FOR J=l TO 

M=EKP'::<300 

0=.J.-15 

K<J>=M*SIH<0> 

' v '<j>=0 

Z<.J>=M*COS'::0> 

X < J+ 1 > = < M*2 > *S I H •:: > 

VCJ+1>=8 

Z < J+ 1 y = >:; M*2 > *cos < > 

NEXT J 

1 1 = 1: 12=2: 13=3 

FOR J=l TO IP 

IU)=J 

NEXT J 

R<1>=18:R<2>= 

X ■:; > = 10: V ■:; 8 > = 

F=. is G=100 

S=lsT=IP 

B*="Z" 

E=8.4:REM ROTATION 

RETURN 

REM BLANK GRAPHICS 

PRINT CHR*<12>? :REM BLANK SCREEN 

POKE -3968, 32: REM ERASE CURSOR FROM SCREEN 

FOR J=-1024 TO --1 

POKE J,0 

NEXT ,T 

FOR J=0 TO 127: REM PLACE GRAPHICS ON SCREEN 

POKE C J-3248+48* I NT •■. JV 1 6 ':> > , < -J+ 1 28 > 

NEXT J 

RETURN 

REM ROTATE POINTS ABOUT AXIS 

FOR -J=S TO T 

IF B*="Z" THEN Al=X<J)s A2=R<l>sA3=V<J>:A4=R<2 

I F B*= " V " THEN A 1 =X < J > : A2=R < 1 > : A3=Z < J > : A4=R < 3 

IF B*="X" THEN Al=Vc:J>: A2=R<2> s A3=Z<J> s A4=R<3 

P 1 = A 1 - A2 s P2=A3- A4 

L=SQR < P 1 *P 1 +P2*P2 > 

IF P2=8 THEN A5=0--<P1<8>*3 U 141593 

IF P1=0 THEN A5=SGN'::P2>* 1.570796 

I F P2< >0 AND P 1 < >0 THEN A5=ATN < P2-'P 1 > - < P 1 < O > *3 . 1 4 1 5 

A5=A5+E 

I F B*= " Z " THEN X C J > =L*COS < A5 > +R < 1 > s V < J > =L*S I N < A3 > +R 

I F B*= " V " THEN X < J > =L+COS < A5 > +R < i > : Z < J > =L*S I N < A5 > +R 

IF B*="X" THEN V<J>=L*C0S<A5>+R<2>:Z<J>=L*SIN<A5>+R 



STs 



( 3 > 
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740 NEXT J 

759 RETURN 

800 REM TRANSLATE 

810 FOR ,T=1 TO IP 

820 DV=V < J > -V < O > s IF 

830 DX=X •'. J > — X ':.' 8 > 

8 4 D Z = Z < J > - Z < 8 > 

850 U < J > =G* ATH < F*DZ.--D V > : REM 

860 H < J > =G*ATN < F*DX.-D'r' > s REM 

878 NEXT J 

880 M I NU=U < 1 > s MAXU=U < 1 > 

890 M I NH=H < 1 > s MAXH=H C 1 > 

9@0 FOR J=l TO IP 

910 IF UCJXMINU THEN MINU=U 

920 IF U«::,T>>MAXU THEN MAXU=U 

930 IF HCJXMINH THEN MINI-MI-K 

940 IF H<J>>MAXH THEN MAXI-NH< 

950 NEXT J 

960 DH=MAXH-MINH 

970 DU=MAXU-MIHO 

980 FOR J=l TO IP 

990 H < J > = < H < J > -M I HH > .-'DH*l.J 



V,Z TO H,U 



8 THEN PRINT "DECREASE V<8> ! 



5 TOP 



UERTICAL SCREEN POSITION 
HCR I ZOHT AL SCREEN POS I T I ON 



-J > 

J > 
J > 
•J > 



...,M T Ml 1 * 



.-r-.i i -j.. 1 i 



1118 NEXT J 

1120 RETURN 

1208 REM DRAW LINES CONNECTING POINTS 

1210 FOR ,T=1 TO IA-1 

1228 IF I(J)=0 OR ICJ+i::'=0 THEN 1348 

1 238 HH=H < I < J+ 1 > > -H ■: I < J > > 

1 248 w=ki < I < .j+ 1 y > -u < i <: j > > 

1238 SN=SGN<HH> 

1268 IF SN=9 THEN 1368 

1278 M=UU.--HH 

1 288 B=U •■. I < J > > ~M*H < I < J > > 

1 298 SP=SQR < UU*UU+HH*HH > 

1 3 8 8 F R K = H < I < J > > T H < I < J + 1 > > S T E P 8 . 125 * H H ■••' S P 

1318 P=M*K+B 

1328 GOSUB 1580 

i- •„' m '»'_* 1 ic.'i 1 r*«. 

1348 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INF I NITV 

1370 K=H<I'::J>> 

1380 IF SGN < i.JU > =8 THEN F -H ( K J > > : GOSUB 1 588 : GOTO 1 348 

1 398 FOR P~U < I •:: J > > TO U < I ( ,Th- 1 ) > STEP 8 . 1 25*SGH < UU > 

140 8 G S U B 1 5 8 8 
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1418 NEXT P 

1428 GOTO 13 4@ 

1430 GOTO 1310 

1500 REM PLOTTING SUBOUTINE 

1510 IF P>U OR P<0 OR IOW OR K<8 THEN RETURN 

1 520 Q= I NT < l< > *8-~ 121-1 28* I NT < P > - 1 NT < 8* < P- 1 NT ■:: P > :> > 

1 538 POKE Q , < PEEK < Q > OR 2'"- < 7- 1 NT < 8* < K- 1 NT < K > > > > > 

1548 RETURN 

1600 REM DUMP GRAPHICS TO PRINTER 

1 6 1 POKE 268 , O s POKE 261,8s POKE 8 , 62 s POKE 1,27 

1628 POKE 2 ? 295 SPOKE 3, 12s POKE 4, 224 s POKE 5,281 

1 638 X=USR < 8 > s POKE 1 ,65 s X=USR < 8 > : POKE 1,2s X=IJSR < 8 > 

1648 FOR M=@ TO 63s 01 = 128* INT ai.-'8 ::••-■ 1824+M 

1 658 FOR P=8 TO 1 s C2=C 1 +64*P s POKE 1,27s X=USR < 8 > 

1 668 POKE 1 , 75 s X=USR < 8 > s POKE 1 , 64 : X=USR < 8 > : POKE 1 , 8 

1678 X--USRO3>:F0R J==8 TO 7s C3=PEEK(C2+8*,J> 

1688 FOR 11=7 TO 8 STEP -1 

1690 POKE 1,3*SGN<2''-H AND C3> 

1 P'00 X=USR < > s NEXT N , J , P : POKE 1,13: X=USR < 9 > : NEXT M 

1710 FOR J=l TO 20sX=USR<0>sNEXT J s RETURN 

2000 FOR 1—968 TO -1 STEP 128 

2818 FOR ,T=I TO 1+63 

2828 POKE J, 'i. 255- PEEK <-.!>> 

2838 NEXT ,T, I 

2858 FOR .J~-512 TO -1 

2060 POKE J', CSS AND PEEK < J > > 

2078 NEXT J 

2080 RETURN 

READV 
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Fig. 6-19. Abstract art, spiralling lines. 
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We present the program listing but we will not displayed on the video screen and then dumped to 

look into it. What we did was simply to compute the the printer as in the last program. Again, you can 

positions of various points and connect lines be- change the program to suit your computer. With 

tween consecutive points. The final figures were that, let's go on to animated graphics. 
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Chapter 7 





Animated graphics are an interesting area of com- 
puter graphics. Unfortunately, many personal com- 
puters simply do not have the speed to handle 
animated graphics. Unless the graphics are simple, 
everything appears as if it is in slow motion. To 
solve that problem, programs are written in 
machine-language or at least use machine-language 
extensively. This change can speed up the apparent 
motion by the factor of 10. 

TYPES OF ANIMATED GRAPHICS 

Let's discuss a few types of animated graphics 
that are around today. One type is the video game, 
found in both arcades and home entertainment cen- 
ters. Another type is the computer game that you 
load into your computer from tape or disk. Other 
types of animated graphics include models or simu- 
lations that are programmed into the computer but 
are not games. 

Arcade-Type Video Games 

The video game machines and the video com- 



puters generally contain only one program. That 
program is loaded as Read Only Memory and can 
not be changed, except by changing the ROM car- 
tridge. The users of these games never see the 
programming. The programming is in binary or 
machine-language. 

Programmable Games 

Programmable games for the personal com- 
puter are of two types as we mentioned before: 
those in BASIC; and those in machine-language. 
Games in BASIC are likely to be understood by 
more programmers but may be slow. You may have 
to wait for a question mark prompt to appear before 
you can enter a response, although some versions 
of BASIC contain an INKEY$ function which allows 
the entry of characters without the display of a 
prompt. Other versions of BASIC would have to 
use a machine-language subroutine that would 
search to see if a key was pressed during a period of 
time. BASIC is really not intended to be the lan- 
guage for animated graphics. 
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Real-time simulations are better if they are 
written in machine-language. In real-time simula- 
tions, your responses are rapidly interpreted and 
the graphics reflect your action. Unlike BASIC, 
machine-language can look for your response and if 
it doesn't find one, it can still continue with the 
program. 

Models and Simulations 

Animated graphics can be used to model how 
something in the real world might act. Suppose you 
wanted to know how two galaxies would react if 
they were to collide. If you knew the forces in- 



volved, you could make a simulation of the colli- 
sion. In reality the process would take eons to 
occur, but with a computer model, you could see 
the results in seconds or minutes. This is an ideal 
example of the use of animated graphics for pur- 
poses other than entertainment. 

ANIMATED GRAPHICS IN BASIC 

Program 24 uses the poke function to place 
user-defined graphics on the screen. The image is 
supposed to represent a walking figure whose legs 
and arms move. 



1@ REM ANIMATED GRAPHICS 

28 REM WRITTEN BV TIMOTHV J. O'MALLE'r' 

30 REM COPVRIGHT 1982, TAE BOOKS INC. 

48 PRINT CHR*<12>:REM CLEAR SCREEN OBOME CAN USE CLS> 

58 DIM A < 1©.- 32> 

60 FOR J=l TO 16: FOR K=l TO 32 

7© READ ACT, K}"» NEXT K,J 

SO POKE -3048, 192s POKE -3039,193 



90 POKE -2976, 194s POKE 



195 



230 DATA 11,19,1 8 , 4,8,1 6 : 
248 DATA 8 , 8 ,©,1,1, 3 , 3 



108 FOR J=l TO 10: FOR K=l TO 32 

1 1 8 POKE K--5 1 3 , A < J , K } 

128 NEXT K,.J 

130 GOTO 108 

200 DATA O , 8,8, 1 , 1,3, 3 , 7 , 8 , 8 , 8 , 1 28 , 128, 192, 1 92 , 224 

218 DATA 11,19,34,4, 8 ,16, 32 , 1 92 , 288 , 288 , 68 ,32,1 6 ,8,4,4 

228 DATA 8 , 8 , 8 ,1,1 , 3 ,3,7, 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 , 224 

"tT***!* Oi£ ■">f?iO "™'ivitvl "7-"> "^•-*"i **3"*~> _ '">xl _ .J. „ .d. 
* ? -J 1 j£ ? -■* O ? •£- *i* O ? x~ KL* £.' ? I .I',, f •■..'■t'l. r* •■,fl x~ ? .ii~ " ? " ? " 

' , 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 , 224 
258 DATA 11,11,1 8 , 4 , 4 , 8 , 16, 48 , 288 , 288 , 72 , 64 , 64 , 56 , 6 , 2 
268 DATA 8 , 8 , 8 , 1 , 1,3,3,7, 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 , 224 
278 DATA 7 , 11,9, 18,2,4, 4 , 24 , 224 , 288 , 88 , 88 , 64 , 48 ,15, 2 
288 DATA 8 , 8 , 8 ,1,1, 3 , 3 , 3 , 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 ,192 
298 DATA 7,7,7,3,2,2,4,12, 224 , 224 , 224 , 1 92 , 1 28 , 96 ,12,4 
388 DATA 8 , 8 , 8 , 1 , 1,3, 3 , 3 , 8 , 8 , 8 , 128, 128, 192 , 1 92 , 1 y2 
318 DATA 3, 3,3,3,3, 1,1,3, 192, 192, 192, 128,8, 128, 112, 16 
328 DATA 8 , 8 ,8,1,1 , 3 , 3 , 3 , 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 , 1 92 
••^-^Tj r, at p, -? ~? , f. t ., 2 - 4 •• '"' -, !~1 ■. ■. 224 - 224 •■ 1 68 •> 1 28 , 1 28 , 64 , 1 92 ? 1 92 
2:48 DATA 8 , 8 , 8 ,1,1 , 3 , 3,7, 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 , 224 
358 DATA 7,11,18,18,4,6,1,1, 224 , 288 , 88 , 88 , 64 , 32 , 1 44 , 24 
368 DATA 8 , 8 , 8 , 1 , 1 , 3 , 3 , 7 , 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 192, 224 
378 DATA 11,11,18,4,8,4,6, 4 , 288 , 288 , 72 , 32 ,16,16,8, 24 
388 DATA 8 , 8 , 8 , 1 , 1 , 3 , 3,7, 8 , 8 , 8 , 1 28 , 1 28 , 1 92 , 1 92 , 224 
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>98 DATA 1 1 
BEADS' 



1 9 :■ 



4,4: 



144, 136 



16, 12,4, 12 



Let's look at the program. The data contained 
in the lines 200-390 are numbers representing the 
bits of the image. The numbers range from to 255 
for the 8-bit numbers. To make the figure appear to 
walk, successive graphic characters are poked onto 
the screen and the old ones are erased. Thus the 
images change and motion is accomplished. 

UTILIZING MOTION IN ANIMATION 

Animated graphics use motion. Motion can 
give the illusion of depth to an image. Motion can be 
in more than one direction. A simple rotation of a 
figure could be considered motion in one direction. 
A baseball, as it is projected through the air, could 
illustrate motion in two directions since the vertical 
location and the horizontal location both change 
independently with time. A molecule has at least 
three types of motion: it has thermal vibration, 
rotation of one or more groups, and Brownian mo- 
tion in whatever media it is in. 

Motion in One Direction 

We have seen motion in one direction in our 
molecular rotation model. Although that program 
was slow, it displayed the principle of motion in one 
direction. On the screen or on paper the image 
changes along one dimension. The stretching of a 
rubber band might be another example of motion in 
one direction. The length changes with time. 

Motion in Two Directions 

Motion in two direction includes the ballistic 
motion of a projectile through the air. If the projec- 
tile is spinning, it might be displaying motion in 
more than two directions. Another example is a 
Lissajous pattern made by a moving dot. The dot 
traces out points on the screen like an oscilloscope. 
The orbit of an object about another object is 
another example of motion in two directions. 

Motion in Three Directions 

In addition to rotating projectiles, examples of 
objects that have motion in three directions include 



the path of a fly buzzing through the air, the cycloid 
motion of a tire, the motion of the moon around the 
earth while both revolve around the sun. The list is 
endless. 

ACCOMPLISHING MOTION 

There are several techniques that you can use 
to simulate motion. You can print points and then 
erase them. If you are using a BASIC language that 
has the poke function, you can use that function to 
place points on the screen and then place blank 
points on the screen to erase them. If you are using 
machine-language subroutines and the USR func- 
tion, you can change the image rapidly to give the 
illusion of motion. There are also other ways. 

Printing and Erasing 

If you write a program that has a print state- 
ment such as PRINT "*"; followed by a statement 
like PRINT CHR$(8); the program will print an 
asterisk and then erase it. If you direct computer 
control back to the first statement, it will enter an 
endless loop and the result will be a blinking as- 
terisk. Unfortunately, some computers insert a 
carriage return after every 64 or 80 characters 
printed. By using control characters that tab the 
cursor to the proper position on the screen, without 
erasing points in the process, and then erasing the 
character in question, you can print and erase 
points to accomplish motion in BASIC. This pro- 
cess is slow. As we said before, BASIC is really not 
the language for animated graphics. 

Using the Poke Function 

The speed of printing and erasing points on the 
screen can be increased by using the poke function 
to place characters in the memory positions that the 
screen occupies. Since the poke function moves 
numbers in memory rather than on the screen, 
faster motion can be achieved. When using the poke 
function, use the ASCII codes for the graphic 
characters and the numbers that correspond to the 
screen RAM in the memory of the computer. To 
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erase or change a point, simply poke a blank charac- 
ter or a desired character. This substitution of 
characters makes the image appear to move. 

Using Machine-Language and the USR Function 

Probably the best way to accomplish motion on 
the personal computer is to use machine-language, 
or at least machine-language subroutines. The use 
of machine language bypasses the BASI C interpret- 
er, and hence the programs run faster. Machine- 
language has the disadvantage of being cryptic. 

The USE function is a way to call machine 
-language subroutines. Different computers use the 
USR function in different ways, but if you can use it 



to increase the speed of a program, you have a 
faster way to display animated graphics. 

An Example in BASS C— Program 25 

Figures 7-1 and 7-2 are two examples of Lissa- 
jous patterns produced by the next program. 

Let's look at the program. Lines 10-40 contain 
the title and credits. Line 45 dimensions an array so 
that we can actually print the figures on paper. 
Lines 46-49 set each element of the array to 32, the 
ASCII code for the blank space. In line 50 T is for 
the variable time, and R is the last position that we 
plotted. In this case it is set at the arbitrary screen 
position -3968. Line 60 clears the video screen. 



16 REM 

29 REM 

30 REM 
40 REM 

45 DIM UA<30,60> 

46 FOR J'=0 TO 38 



LISSAJOUS PATTERNS 
WRITTEN BV TIMOTHV J. OM'IALLEV 
COPYRIGHT 1982:. TAB BOOKS INC. 



4! 



UAOJ,l<>=32 



50 T=0sR=--3968 

SO PRINT CHR*C12>5 

7@ T=T+0„05 

130 X== I NT < 28*S I N < 2*T > > 

90 \'- 1 NT '■. 1 4*S I N < 3*T > > 

9 5 U A <. >; 1 4 + V > ? ■•.: 2 8 + X > > =43 

1 00 p=x+g,4 : + :, v , -304 1 

110 POKE R.-32 

120 POKE P,43 

130 R=P 

135 IF T>6.3 THEN 150 

1 40 GO TO 70 

150 FOR J =8 TO 30 

i fc-W l : OR K=W l u fc.O 

1 70 PR I NT CHR* ■:: UA •' J , K > > 

188 NEKT l< 

190 PRINT 

280 NEKT J 

218 PRINT CHR$<12> 

229 END 

READS-' 
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Fig. 7-1. Lissajous pattern tracing of video screen. 

Line 70 increments the clock. Line 80 computes the 
position of the point in the horizontal direction and 
line 90 computes the vertical position of the point. 
Line 95 sets the element in the array at that position 
equal to 43, the ASCII code for the plus sign. Line 
100 calculates the screen position using the X and Y 
values and assigns the value of the position to the 
variable P. Line 110 pokes the last position of the 
point R with the number 32. This erases the last 
plus sign. Line 120 then pokes the plus sign into its 
new position P. Line 130 sets the last position equal 
to the current position. Line 135 says that if the 
variable T is greater than 6.3, go to line 150, which 
will print out all the positions that the program 



generated. If you deleted line 135, you would sim- 
ply have a continuous pattern generated on the 
screen. Line 140 is a goto statement, which directs 
the computer to line 70. Lines 150-200 form nested 
loops that print the Lissajous pattern on paper. Line 
210 causes a form feed to the next page, and line 
220 ends the program. 

By changing the definitions of X and Y in the 
program, you can generate any number of Lissajous 
patterns. Some computers might use the set and 
reset functions instead of the poke function to place 
dots on the video screen. This program could even 
be converted to create high-resolution graphics for 
some spectacular images. The -3968 in line 50 is 
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Fig. 7-2. Lissajous pattern tracing of video screen. 

the screen position for the upperieft corner of the tilings possible only on large computers will be 



auccu. iyui ouinputci juugiii uot a uui^itiit 

number for that screen-RAM memory location. The 
-3041 in line 100 is the memory location for the 
position that is approximately in the center of the 
screen. Again, you may have to change that number 
to get a good animated graphic program. 

FUTURE POSSIBILITIES 

What does the future hold for graphics for 
personal computers? Probably a lot! Some of the 
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memory of personal computers increases. There 
will be an amplif i cation of some of the things that we 
talked about in this book and probably a lot that we 
didn't even hint at. 

One of the things that might be possible is the 
creation of TV-like simulations. Your computer 
could generate images that change thirty times a 
second so that the display would look like a televi- 
sion picture. You could create a little world within 
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the memory of your computer, take imaginary jour- grammer and the sophistication of his computer 

neys to distant realms, and see many fascinating system. Anyone who is willing to pursue a simple 

sights. idea to its furthest limit will find success waiting at 

What else would be possible? The answer to the end of the road. Where will it all end? I don't 

that question lies with the imagination of the pro- really know; but I do know that the sky's the limit. 
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In this final chapter we look at two programs in 
BASIC that produce graphics. In the first we see a 
high-resolution three-dimensional figure of a 
house, similar to the house program that we saw 
earlier. In this program the hidden perspective 
lines are erased. We also discuss how parts of the 
house can be shaded. The second program is like 
the molecular model that we saw earlier except we 
increase the efficiency of the algorithm and we 
apply texture, shading and highlighting to the 
sphere to help achieve realism in graphics. The 
balance of the chapter is about the effective use of 
the video display. 

A HIGH-RESOLUTION SOLID FIGURE OF A HOUSE 
The perspective line program that drew the 

nOuSc wuiKcu wen, uutiLiiaua tumusiug nuiiiuci uj. 

lines. What we really need is a program that would 
not show any hidden lines. We have seen programs 
that use various methods to erase hidden lines. 
Now we look at a better algorithm for constructing a 
solid three-dimensional figure. 



When dealing with solid figures we can no 
longer think in terms of lines; we must think in 
terms of surface polygons. A surface polygon is a 
flat enclosed area bounded by three or more 
straight lines. A cube, for instance, has six surface 
polygons which are all squares. The surface poly- 
gons of an object meet at their edge lines. 

In our house example we must define the 
house as a collection of polygons. A side of a house 
might be one polygon; one side of a roof is another; 
part of the face of the house might be another. The 
polygons must meet the following qualifications to 
work in our program: (1) No interior angle of the 
polygon can be greater than 180 degrees; (2) no 
polygons can overlap each other: and (3) the physi- 
cal dimensions of the polygons can not vary widely. 

T-f +V.« intnn'^ -,~~lr,r. ^-rr.^^A 1 Q f\ A^m-^rr* nr> .' r. o 

ix ui^ iiin-iiui angiv-o ^A^^-v^v4 ±kj\j u^giL*uo, ao ill a 

star-shaped figure, the program ignores certain 
parts and would probably recognize only the center 
of the polygon. Polygons that overlap are confusing 
to the algorithm although they would be drawn 
correctly at times. If the dimensions of the poly- 
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gons vary wildly, the computer will have difficulty pears and the side of the house becomes evident, 

recognizing which polygon is closest to the view- The roof on that side also comes into view. Finally 

point, because the program defines a midpoint for the roof and sides of a porch appear in trie back, and 

each of the polygons and measures the distances to the gable roof that you saw on the right side in the 

the viewpoint from those midpoints. A priority first figure appears on the left side in the back, 

level is established for each polygon based on the What the program does when we take our 

distance from the viewpoint to its midpoint. imaginary walk is to sort the polygons by their 

Figure 8-1 shows images produced by this distance to the viewpoint. It determines which ones 

program. Imagine that you are standing in front of are closer than the others and draws them in 

the house in the first figure. As you look at the next perspective accordingly. A priority order which 

figures, imagine that you are walking around the changes with each view is established for the set of 

left side of the house. You notice that a gable disap- polygons. 



HIGH RESOLUTION SOLID FIGS LIRE: OF A HOUSE 
WRITTEN BV TTMOTHV J. O' MALLET 
COPYRIGHT 1982, TAB BOOKS INC. 



10 REM 

20 REM 

30 REM 

40 REM 

50 GOSUB 200! REM INITIALIZE UARlrtBLES AMD ARRAYS 

60 GOSUB 900s REM SORT BV INCREASING DISTANCES TO MIDPOINTS 

70 GOSUB 11 00a REM TRANSLATE H,7?Z TO H,U 

SO GOSUB 1300!; REM COMPLETE MATRIX DATA 

90 GOSUB 15O0:: REM PRINT OUT HIGH RESOLUTION SOLID OBJECT 

100 GOSUB 18O0 a REM FORM FEED FOR NEXT UIEU 

110 GOSUB 1900 a REM ROTATE POINTS ABOUT AN AXIS 

120 GOTO SO a REM REPEAT PRINTING DIFFERENT UIEWS INDEFINITELY 

280 REM INITIALIZE UARlRBLES AND MATRICES 

2 1 8 I P=37 a HP=27 s TP= I P+MP 

228 D I M X ( TP > , V ■; TP > , Z < TP > , U < TP > , hi ■.: TP > , R <. 3 > , MTX < HP ? 8 , 5 > ? PR <.' HP > 

225 DIM DI'i;NP> 

230 FOR J = l TO IP 

240 read x ■•: -J > ? V •; -J \> ? Z ■:: ,J '.. 

250 NEXT J 

260 DATA ? :> :. ? 48 :■ 8 , 36 , 48 :■ O ? 

278 DATA 20? GL @ : . 20? 0? 10? 0,0, 10 

280 DATA , 8 ? 20 ? 1 8 , 8 ? 27 ? 28 ? 8 ? 2 

2 9 8 D A T A J. ? 4 8 ? .2 7 , 2 8 ? 4 © ? 2 8 ? 1 8 ? 

3 O 8 D A T A 2 8 ? 4 8 ? 2 8 ? 2 8 ? 4 8 , 2 7 , 3 6 , 






W: 



28 j 



l;1 



i!i? 8, 4 8? 28 
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18? 8? 48? 10? O? 40? 1 



. M : 



328 DATA 20? 40? 12? 28? 4o? iw? y? 4fc:? 1W, 8? 48, 1,2? 8, 

338 DATA 8 ? 8 ? 8 ? 20 ? 8 ? ? 36 ? 28 ? 8 

348 FOR ._T=1 TO HP a READ MTXCJ? O? 8> a FOR K=l TO MTI" 

358 READ MTX ( J ? K ? > s NEXT l< , J 

360 FOR J'= 1 TO NP a X 1 =0 s V 1 =0 :: Z J =8 a FOR K= I 7 O I i i X = 



t-1 



370 X 1 =X 1 +X ■: MTX ■; ,T ? K , 8 s . ;: ',' j. ==>,.■ nv 



zi=zhsd::mt:- 
V'. :n i: p >=',':!.. ■ 



MTX' 



:<'-r i- t.p '■ -«i u'1t:-;<:.j, 0,8:* 

J4IP::>=Z1 --fT-ITX':" J?8,8> - 1 . 
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,409 
4 :l 
■42:0 
■4 30 
44© 
459 
460 
■470 
■480 
499 

1500 

510 
520 
530 
540 
550 
560 

588 
590 
610 
620 
630 
640 
650 
660 
670 
680 
699 
7' 00 
710 
720 
730 
740 
750 
760 

770 

!"! Pi P\ 

8 1 
820 
838 

840 
858 
860 



I !fc,, :: , i J 

DATA 5, 4, 77,26, 37,4 

DATA 6:, 18, 13, 18,25,28, 18 
DATA 7 , 9 , 1 J. , J. 4 , 33 , 34 , 35 , 9 

DATA 5, 2,29,31,32,2 
DATA 6, 14, 15, 16,30,33, 1-1 

DATA 5, 1,8,9,35, 1 

DATA 5, 16,30,31 ,28, 16 

DATA 5, 30,31,32,33,30 

DATA 5, 12, 13, 3 8, 17, 12 

DATA 5, 25,26,27,28,25 

DATA 5, 5, 4,27, 28,5 

DATA 4, 15, 16, 17, 15 

DATA 6 , 3 , 22 , 2 J , 20 , 29 , 3 

DATA 6, 9, 11, 12, 13, 10,9 

DATA 5, 7, 8, 9, 10, 7 

DATA 5, 5,28, 10, 36,5 

DATA 5, 1 , 6, 7, 8, 1 

DATA 5, 11, 12, 15, 14, 11 

DATA 4, 17, 18, 19, 17 

DATA 4, 16, 17, 19, 16 

DATA 5 , 24 , 23 , 22 , 2 1 , 24 

DATA 4, 24, 19, 18,24 

DATA 5, 19,21,28, 16, 19 

DATA 6 , 1 7 , 25 , 26 , 23 , 24 , 1 8 

R < 1 ":■ =- 1 8 s R (. 2 "■' =24 b R >: 3 > = 1 4 s REM ROT0T I ON PO 1 1 -IT COORD I HATES 

x >: e > =6 : '-.' >■. ) : = - 1 09 s z ■: e > =& » rem a 3: euro i ht coori:.' i nates 

F=9. 1SQ--.99SREM F IS DISTORTION AMD 6 IS MAGNIFICATION 

B*="iZ"sREM AXIS OF ROTATION 

WID-80S 02^=80 2 REM WID IS WIDTH OF PLOT IN PIXELS 

E=0„ 4 ■! REM ROTATION INCREMENT IN RADIANS 

Hi3T=96sREM HGT IS HEIGHT OF F'L.OT IN PIXELS 

GOSUB 800B REM SET UP MACHINE LANGUAGE SUBROUTINE 

FOR PRINTER 

RETURN 

REM SET U! :: ' MACHINE' LA! IGUMGE SUBF'OUTINE FO!"! F'F'I LNTEF! 

POKE 260, 0s POKE 26 1,0 SEEM SUBROUTINE STARTS AT 88Q0 HEX 

POKE 0,fa2B POKE 1,27s REM LD A, 27 

POKE 2, 295 SPOKE 3, 12s POKE 4, 224 s REM COLL SEND <AT EO0C 

HEX > 

POKE 5, 20:L'» REM RET 

XX^USR'A3>!!RE!4 SENDS 27 TO PRINTER AT ADDRESS E88C HEX 

POKE 1, 65sXX=USR.03::. s REM SENDS 65 TO PRINTER 
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878 POKE 1, la XX™1ISR<8> a REM S El -IDS 1 TO PRINTER 

880 RETURN 

906 REM SORT BV INCREASING DISTHNCES TO MIDPOINTS 

910 FOR .J=j. TO MPs REM DETERMINE DISTANCE TO MIDPOINTS 

920 D , ( , ==y(jHlF i )-'-,'(8):IF D'-OO THEM 19 18 a REM TOO CLOSE!! 

930 DX=~X < J' -I- 1 F : ' "} X < > a DZ : =Z f ". J -t~ I F : ' ':• 7 < O '.:> 

940 D I < ,T > --SQR <: DX*DX -i-DV^DV + DZ*DZ > " PR •:" X > = J s NEXT J 

950 FOR ..T=l. TO MP-i:N<=T!:REM SORT MIDPOINT DISTANCES 

960 I F D I ■■: l<+ 1 > >=D I >: K > THEN 1 OOO 

970 A=PR <. l< > a PR < l< > =PR C Id- 1 > a PR < K+ 1 > =A a REM 3 1.. J I TCI- 1 PR 5: OR I TV 

930 A==DI OO a DI a<)=DI a< -i-l > a DI <K+1 '=<■!" REM SWI"! CM [.. |;S ff-iNCE 

990 K~l<~ 1 s I F l<>0 THEN 960 

1000 NEXT J s RETURN 



1010 REM 



TOO CLOSE!! c'NOT AL1 OF OBJECT Cf- 



I- 



TSPI. 



1020 PRINT "TOO CI....OSE: 10 OBJECT™ INCREASE \'KB.> IN LINE 788. 
1038 PRINT "THEN TRV AGAIN." 
1040 E i-C- 
ll 08 REM TRANSLATE X,V,Z TO H,U 

1110 FOR ,T==1 TO TPsDV==V'::J"T- , - 1 l '::0::'!i IF DVC=8 THEN 1010a REM TOO 
CLOSE 

1 1 20 DN= : X ( J > X < ';> a D2==Z < J > Z '".' O > s U ■''. ,1 > --ATM C F*DZ -''DV ) 

1 1 30 H < J > = ATN < F*DX-"DV ) a NEXT J a 11 1 NU==U •:; 1 > a MAXU-U <. 1. > a M I NH=H < 1 > 

1 1 40 MAXI-I=H '•: 1 > a FOR J~ 1 TO TP a I F C J > < M 1 1 -IU THEN M I HU==U < ..T ;.. 

1150 IF UCJ>>MAXO THEN MANO^OCJ) 

1160 IF HCJXMIHH THEN I'lIHI-DT-iCJD 

1170 IF HC:r>>MAXH THEN MAXH-HCJ";' 

1180 NEXT J 

1 1 90 DH=M AXH-M I NH a DU=M AXU-M I NU 

120O FOR .J=l TO TP 

1210 H < J" > =Q* >: H < J > -M :i: NH :< , - DH-HJ I D a i, i ■:: J' > -8+ <: i,i <" J > - N I |--|i..i ;-. vDU*l-!GT 

1220 NEXT J! RETURN 

1308 REM COMPLETE MATRIX DATA 

1310 FOR J==l TO IIP a FOR 1-0=4 TO HTX<PROJ:.< , 9, 0>-l 

1 320 HH=H C MTX < PR < .J > : , |<+ 1 : , > > --H k MTX < PR C J > .- K , O > > 

1 330 uu=u < mtx ■: pr ( j' > : . i< i- :i. , o > > u >: ittx c pr c j > , i< , > > 

1349 SN=SGIKHH>a IF Sh-NO THEN 1400 a REM SLOPE EQUALS INF I HI TV 

1 350 M=ULO HH a B=U < MTX k PR < J ) , K , 9 ':> > -M*H < MTX C PR < J > , K , > > 
1 368 MTX < PR < -J > , K , 1 > =Q a MTX < PR C J > , l< , 2 > =M 

1 370 MTX < PR < J > , K :■ 3 > ^=B s MTX < PR < J > .- K , 4 > =8 

1 388 MTX < PR C J > .- K ? 5 > =SGN ( ■:! M*H < I P-+-PR C J > > +B > - C I P-+-PR C J > > > 

1398 NEXT K,. J a RETURN 

1488 REM SLOPE EQUALS IITFINITV 

1410 MTX < PR •:: -J > , l< , 1 > = 1. s MTX < PR < J > , !< , 4 > =4-1 < M'lX •: PR < J > , K , 8 > > 

1 420 MTX < PR ■:: -J > , l< , 5 > ==SGH < MTX < PR < J' l' 1 , l< :■ 4 > H <. I P * PR < J" > > > 

1430 GOTO 1390 

1580 REM PRINT OUT HIGH RESOLUTION SOLID 
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1518 MU=0sFOR -J=l TO TPsIF IK ,T > >MU THEN MU=4K,p 

1520 NEXT ..TsMU=INTaiU::H-l5REM SEARCH FOR TOP Ul- OBJECT 

1530 FOR .JS=MU TO 8 STEP -1 

1540 FOR LS=8 TO IHT<WID--W2>~-1 " GOSUB 1650; REM READS-' PRINTED 

1550 FOR !<S=LS*UI2 TO LS*W2+W2-1 ' NS=1 " MS~1 ! SS=8 

1 568 I F MTX C PR < HS > , MS , 1 > = 1 THEN 1 688 

1 57tf ZU™MT:K ( PR < MS ':■' ? MS ? 2 > *KS+MTX < PR < HS > : . MS ■.. 3 ':> 

1580 IF ZU-JS>=0 AND ZU--JS< 1 THEN SS==l8GOTO 160© 

1 590 I F SGN < ZU-J'S > < >MTK < PR C HS > -.■ MS , 5 > THEN .1. 738 

1608 MS"-! V !S+1 s IF MSCMTKCPF'CNS.' n 8:. 8> THEN 1568 

i & i o poke i , ss s xx==usr < > 

1620 NEXT KS,LS 

1638 POKE 1, 13:XM=USR<0>!REM NEXT LINE < CARRIAGE RETURN J 

1640 HEXT JS! RETURN 

JfiFSR REM READV PRINTER 

1 660 POKE 1 , 27 s XX^USR < > " POKE 1 , 75 : XX-TJSR < 8 > : POKE 1 :■ U2 

1 678 XX-USR C 8 ':> " POKE. 1 :■ O s XX^USR C 8 > s RETURN 

1680 REM UERTICAL LINE COMPARISON 

1 r-V^fl ZU=MTX < PR < NS > ? MS :. 4 > 

1780 IF ZU-KS>=@ AND ZU-KSa THEN SS=lsGOTO 1688 

1710 I F SQI I C ZU--KS > < >MTK < PR <. HS > , MS , 5 > THE!-! 1 738 

1728 GOTO 1688 

1730 HS^NS+1 . sS:=;=8:r'1S=ls IF NS>MP THEN 1610 

1740 GOTO 1568 

1888 REM FORM FEED FOR NEXT UIEU 

lSjFi POKE 1 ■■ 12!:XX=TJSR03> s REM SEND FORM FEED CHARACTER 

TO PRINTER 
1828 RETURN 

1980 REM ROTATE POINTS ABOUT AN AX I a 

1910 FOR J==l TO TP 

1920 I F B$~ " Z " THEN A 1 =X < J > " A2~R < 1 > " A3= V CJ > " A4= : R < 2 > 
1930 I F B*~ " V " THEN A 1 =X <J'>" A2=R < 1 > s A3=Z ( J ;:■ s A4-R c; 3 > 

1948 I F B$== " X " Tl IEN A 1 ==V < J > s A2=R f' 2 > s A3=Z •': J > s A4=R < 3 > 

1 958 P 1 "A 1 -A2 s P2===A3~ A4 

1968 L=SQR < P 1 *P 1 +P2*P2 > 

1978 IF P2=8 THEN A5=-<P1<0>*3„ 141593 

1988 IF PI -8 THEN A5==SGH<P2>*1 „ 579796 

1 990 I F P2< >0 AND P 1 < >0 THEN A5==i~iTN '• !~'2-- P 1 > - C P 1 < > *3 ., 1 4 1 5 V-: 

2R!3£ ! ! A5™ : A5-'"E 

•?R 1 8 IF B$~ " Z " THEN X < J > =L*COS < A 5 > + R ■' 1 > !1 V < J > =I_*S I N C ft 5 > +R '•■ £ 

282W 1 1- b*=== " V 1 Hfc.n . :: . '. -i ■' •~u.-i<i-,"_i.=. •- i-i-i -■ •'-i'-. ■-. x ••• » .-• '•• •-■ •• ■-•■••-' i> '■■' ■-• •• ■•■•-■- 

2030 I F B*= " X " THEN V < J > =L*COS < A5 > +R < 2 > ° Z < J > ==L*S I H C A3 > +R •''. ■: 

2048 NEXT J s RETURN 

READV 
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Fig. 8-1. Perspective line drawing of a house with hidden lines erased (eight views). 



143 



This program contains seven main sub- 
routines, found in lines 200-2040. The main body of 
the program is in lines 10-120. Lines 1040 identify 
the program. Line 50 is a subroutine call to lines 
200-770, where the data is read into arrays and the 
values of the variables are set. Line 60 is a sub- 
routine call to lines 900-1040 where the polygons 
are sorted by distances to midpoints. Line 70 is 
a subroutine call to line 1100 where the three- 
dimensional coordinates are translated to a two- 
dimensional perspective set of points. Line 80 is a 
subroutine call to lines 1300-1430. This subroutine 
completes or redefines the data in the MTX matrix. 
The MTX matrix contains data on point connec- 
tions, slopes and intercepts of lines between 
points, and the positions of the midpoints relative 
to the lines of the polygons. Line 90 is a call to the 
subroutine in lines 1500-1740, which prints out the 
figure in high-resolution. Line 100 calls the sub- 
routine in lines 1800-1820 which cause a form feed 
to position the next sheet of paper in the printer. 
Line 110 is a call to lines 1900-2040 where the 

rvu'ntQ nr»H rniHnninf^ fnr thp npyt view 3re rotated. 

Line 120 sends program control to line 60 to con- 
tinue the process. 

Let's look at some of the important lines in this 
program. In line 210, IP is the number of points 
(X,Y,Z) in the program, and NP is the number of 
polygons in the program. TP is their sum. In line 
220, PR is an array that holds the priority, i.e., 
relative closeness to viewpoint, of the polygons. 
Lines 260-330 contain the X, Y, andZ coordinates of 
the IP points. Lines 340-440 define a midpoint for 
each polygon by finding the mathematical average 
of the coordinates of the points of the polygon. 
Lines 410-680 define the polygons. Take, for 
example, line 410, which contains the data for the 
first polygon. Using that data the computer will 
A-rnrtr i line from n oint 4 to n oint 27 to noint 26 to 
point 37 and back to point 4 again. These are bound- 
ary lines for the first polygon. Tne data for the 
second polygon is in line 420 and so forth. 

Lines 800-880 are a simple machine-language 
subroutine that sends number to the printer. You 
can substitute a BASIC subroutine or another sub- 
routine if you like. This routine was used because 



some BASIC interpreters insert a carriage return 
after a given number of characters have been 
printed. Lines 1500-1640 search for the top of the 
figure (to save time) and then print out the object. 
Line 1560 is a check to see if the line is vertical. If it 
is, the computer goes to line 1680. If not ZV is 
calculated from the slope and intercept data in the 
MTX matrix. ZV is the correct vertical position (for 
that line for the pixel KS. Line 1580 says that if the 
pixel is in the current polygon line, set SS equal to 
1, then goto line 1600. Line 1600 increases the 
polygon line counter by 1 and checks to see if the 
counter MS, is less than what we said the number of 
lines in the polygon were originally. (Remember 
lines 410-680?) If the pixel is on the same side of all 
the polygon lines as the midpoint is, then SS is sent 
to the printer. If SS is 1, a dot is printed; ifSSisO, a 
space is printed (an empty dot). Line 1590 checks to 
see if the pixel is one the same side as the midpoint. 
If a pixel ever fails to be on the same side as the 
midpoint, we check the next sorted polygon. If the 
pixel does not lie within any polygon, an empty dot 
is nrinted and we move to the next pixel position. 
NS is the polygon counter in the program. 

Possible Changes to the Program 

Polygons can be shaded by adding the follow- 
ing lines: 

765 GOSUB 2100: REM READ SHADING 

DATA 
2100 REM READ SHADING DATA 
2110 FOR J=l TO NP:READ CR(J):NEXT 

J: RETURN 
2120 DATA (NP number of values between and 

1) 
227 DIM CR(NP) 



louo ir* 






(1))*-1 

Here line 2120 contains numbers that tell what 

pCICeiltagCUl UiCpiAClSaiClu ucuaia, v k/v^I*£» UV/**w 

and 1 being 100%. Line 1605 changes an empty dot 
to a dark dot (inside a polygon) a certain percentage 
of the time according to the data in line 2120. 

Another possible alteration is to change the 
dark pixels of a line to white in order to create 
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polygons that appear to have interior angles great- we saw in Chapter 3, except this one has spheres 

er than 180 degrees. Actually you would use more that are textured, highlighted, and shaded. The rest 

than one polygon, but simply erase the lines of the features are the same, 

separating them. This change could be very useful Figure 8-2 shows spheres that appear to be 

for applications in which you must use large interior light near the center and dark near the edges. The 

angles. You can also change the program by chang- illusion is that light is coming from behind you as 

ing the width, W1D, and the height, HGT, of the you look at the spheres. The spheres also appear to 

plot in pixels. have a rough texture, although that is lessened the 

larger the spheres become. Again, the parts of the 

A HIGH-RESOLUTION MOLECULAR MODEL spheres that are hidden are not printed. As in the 

We now look at a program similar to the one other program, the left side of the model appears to 

1 @ REM l-l I GH-RESOLUT I ON , SPACE F I LL I HG 

20 REM ROTATING MOLECULAR MODEL 

30 REM WRITTEN BV TIMOTHY J. ON1ALLEV 

4S REM COPYRIGHT 1982, TAB BOOKS INC, 

58 REM 

60 GOSUB 100s REM INITIALIZE PROGRAM AND READ DATA 

70 GOSUB 200 s REM SORT BY DECREASING DISTANCES TO UIEWPOINT 

80 GOSUB 400! REM PLOT POINTS AND PRINT ON PAPER 



I EI..J 

W AN IS 

I NT ING INDEFINITELY 



85 GOSUB 800! REM FORM FEED FOR NEXT U? 

90 GOSUB 600s REM ROTATE POINTS ABOUT A 

95 GOTO 70s REM REPEAT ROTATION AND PR: 

180 REM INITIALIZE PROGRAM AND READ DATA 

1 1 E->0 „ 4 : N 1 = 1 2 :: RD==8 ., 5 s F=0 „ J, :; 8=8 „ 99 s HG T= 1 92 s l,J I D= 1 60 a 82=88 

1 20 D I M X C N 1 > , Y >:' N 1 ;< ; . Z ( H 1 :> , U < N 1 > , H C N 1 > , RS < Ml > , D I < N 1 > , R C 3 > 

1 38 FOR J= 1 TO N 1 ! READ X C J > , '•,■' < J > :■ Z <. J > s NEXT J 

1 '40 DATA O .-. O :• G :• 8 n 5 : . @ ■.• 9 . 87' ? ,1, „ 5 :■ 8 ? 8 „ 87 :■ 2 .- 8 ? 8 

1 58 DATA 1 ,. 5 ? :■ 8 „ 87 :• 8 „ 5 -.• 8 ? - 8 ., 87 ? 3 :• 8 :■ 8 ■■■■ 3 ., 5 :■ 8 ,. 348 -.< 8 .. 3 4 8 

1 68 DATA 4 . 5 :■ 8 „ 348 , 8 . 348 :■ 5 , 8 , 8 =. 4 , 5 ; . 8 » 348 =■ 8 „ 342 

1 78 DATA 3 . 5 :■ -- 8 , 348 :■ ■- ,, 348 

188 GOSUB 510! REM SET UP MACHINE LANGUAGE: SUBROUTINE 

FOR PRINTER 
1 90 R < 1 > =2 . 5 s P. ( 2 > =8 s R < 3 > =0 s X ' 8 ':' =2 „ 5 " V <■ 8 ) =- 1 8 « Z < 8 > = J. s B$ = " Z ' 
195 RETURN 

280 REM SORT BY DECREASING DISTANCES TO U I EURO TNT 

282 FOR ..1=1 TO Ml 
284 D'v'=V':: J>-Y<8/! IF DY' =8 THEN PPINT"DECPEHSE V'OC: STOP 

286 dx=x < .J > -x < 8 > s dz=z >■: j :■ --z >~". 8 "■> 

208 d 1 •.: j > =sqr •: i:.' y*d y-!-dx*d;«h-dz*dz > ■■ rs >: :i > =a n i e f *rd ■ d 1 >: j > ;•■ 

2:89 U <: J ) =-ATN C F*DZ/DV ;■ s H < J > :=,:-,t h < F+DX,. [.',' ;.. s NEXT J 

218 FOR ,1=1 TO Hl-ls h::~ J 

228 IF DICK i-l Y=-=D I '•:!<:■ THEN 278 

230 A=NOO ! X C IO =X < K +• 1. ) ! XOK+1 >=A! A=Y'N-0 s V(K)=V(Ki-l > " 'CiK r !. >•■ 

240 a=z ( i< > ! z <: k ) ■■■■■■■■■■?. •: i<-!- 1 > ! z •■: !<••!- 1 :• =a s a=u •.: k :• " <: k '■■ = ! .' ■■: k -i 1 > - u >: i< h- i '< - 
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■—i 1=7 1 :> 



2 few 
278 
288 

2:98 
388 
31.8 
328 
338 
349 
350 
2.60 
370 

•400 

485 
406 
418 
420 
•430 

•~r "T 'C' 

458 

453 
455 
468 
478 
488 
498 
588 
5 1 8 
528 

548 
688 
618 

630 
6 '40 
650 
660 
678 
€•861 
698 



A=H I"! |< > s H ■:: K > ==4-1 < K-i- 1 > " H ■'.: !< ■! 1 > = A s A=RS ( K > s RS •:: !< > =RS <. K+ 

RS'HO-l >"A 

A=D I < 1< > s D I < K > *=D I < !< ! 1 > s I? I <; K+ 1 > = A 

K=l< is IF K>8 THEN 229 

NEXT J 

M I Nt'=='J ■:: 1 > -RS ( 1 > s Mf -iXU=U < 1 > +RS ( 1 > 

m:chh^h< i >~-RS';: 1 > a ma;«:h---h< i >+rs< i > 

FOR J=l TO Nl 

I F U <, J > -RS ■:: J > < II I HU THEN M 1 NU=U K I > RS < J" > 



:f ucj;'!-rs< j>>riftxu 



i i"!ir.:.li i 



if:;Vy=!l(J)4RS(J; 



I F I i <: J > -RS >:: J > < I'l I MH THEM M I NH=H •' J ■' RS < J > 



if hcj>+rs cjy >maxh thei- 



■ = - ' .. .i 



■i-pscj 



NEXT J '■ DH=Mi-iXH M I HI i " D'-f^MAX"J - I'l I HO 

FOR .J=l TO HI 

H < J > =G* ■:; h .; .j ;■■ \<\ j: hh > .-■ dh*w i d a 1. 1 < ..t ;. ~&-4< •: 1...1 ■:: ,t > -hi j: i iu ..-■ .••-du*hgt 

RS < J > =G*RS «:: .J ) ,• DH*L,.! I p s NEXT J s RETURN 

REM PLOT POINTS AND PRINT ON PAPER 

MU=0 a FOR -1= 1 TO H 1 s I F U < .J > i-RS < J > >MU THEN NU='..i >:. J "' h-RS •:.' J > 

NEXT J:MU=INT':t1U> + l 

FOR -JS=MU TO © STEP - 1 

FOR LS=@ TO INT<WID-W2> -1 s QOSUB 498 

FOR KS==LS*IjJ2 TO LS*I..J2+U2-1 sSS=8s HS=H1 

PZ=PS-RS<NS>s IF PZ>1 THEN HS=NS--1 : OH 1+SGN<NS> GOTO 

468 r 448 

IF PZ<1 THEN SS=1 

I F PZ< 8 THEN SS=SGN < I NT < RHD C 1 > *RS < NS > - ' ABS < PZ*2 > > > 

POKE 1 , SS s XX=USR < 8 > s NEXT KS , LS 

POKE 1,13s XX=USR < 8 > s NEXT JS 

RETURN 

POKE 1,27 s XX=USR ,: - 8 > s POKE 1 , 75 s XX==USP f! 8 > s POKE 1 , W2 

XX=USR < 8 > s POKE 1 :■ 8 s XX=USR < 8 > s RETURN 

REM SET UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 

P K E 268,8s P 1< E 2 6 1 , 8 5 P K E 8 v 6 2 s P K E 1 , 2 7 s p K E 2.-2 8 5 

POKE 3 , 1 2 s POKE 4 , 224 s POKE 5 , 28 1 s XX=USR <. 8 > s POKE 1 , 65 

XX=USR <. 8 ) s POKE 1 , I :: XX=USR < 8 > s RETURI--I 

REM ROTATE POINTS ABOUT AH AXIS 

FOR J'~l TO Nl 

j. I !_!■+■■-■■ c. I i lL.ll !•"! -i, : " ,■•.■• ..' .■> S I-1.J — i' '-. J. .■■ » l"1 ■■-• I '-,J .-' » |-1'4" I 1 ' .. .' 

I R 13$:=: » s« •■ THEN A 1 ==X C I .:■ = A2=R C 1 ) •" A3~Z ( ,T ^ s A4=R ■; 3 > 
I F B*~= " X " THEN A J =^ V ■: J ;• s A2=R >\ 2 < s h3=<Z < J' > s A4=R <: 3 > 

F : ' 1 =A 1 —A 2 s P2=A3 A 4 

L=SQR<::Pl*P:L-iP2*P2> 

IF P2=S THEN A5- a ::: 'l<8>*3„ 141593 

IF Pl=:8 THEN A5=SGN'-:P2>M'.l „ 5P8796 

I F P2< >8 AND P 1 < >8 THEN A5=Hl"N C P2 •- F' 1 ;• - '" P I. < 8 .:■ *I< „ 1, 4 1 593 
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7kM Hb=- : i- : i5-H::. 

7 :i. e i f is*:=: » 7 <> then x •: j ':< =l*cos •' A5 ■ +r <: i :< » v <■ 

728 I F B*= " V " THEM K < J > -4..* COS ■; A5 > + P ', .1. '-< s Z >■ 

730 I F B*= " X " THEM V ■" J > =L*COS ■: A5 > + R •:: 2 ;•> » z ' 

740 NEXT J : RETURN 

898 REM FORM FEED FOR NEXT UIEW 

8 1 8 POKE 1 ? 1 2 s :KX=USR < 9 > s RETURN 

READV 



■=L*SINf A c :.'>-i-R''.2' 
>»! *S1N(A5>+R':3: 



'I'll' ; -.™v, ■ , : ■' ,-,; 

V,::-,, „X I'll -H-l... : „. : ,'':' : ' 1 :: 



*'■■ ':'■! 















'»!:,.■ .. . ; .';«v ';;;:> . ,.:'; : ;»i ; 



.':!;!!■■ ~S !I \:-I;": ;i 'iji!t : '.'li'i-'-'-... 

,'I| »i. m .i I' 'V '!.';'■■ ; 



JMv ' ! .l"4 

if': ■'!;::; 

i;,;.; : , ' ■-;;-;: 

' : ij:: - ; .. - . ';:j.iH' 

""■»!'i:i. .;,,'"''„ 



ws:v-' I ''!>»'' '''""»"'■" 






"!.,; 



..'■■ i-"u, ■■ '-, ,!;:•,;.-* ■■•; ••>{,. 

,!!!;!■. . -'."il. ■ .:-,,f!i 

'Si'tv.. '.!--:, ■:-.-::,- in;','!-!,!!* -'i|-,i ■;■*•..,. 
l-'!':. • ■..fill • ■ •■ ;;■„ i;! ; -' - ,':!i. jiji ' 

-.r-a ■• |,| »'i' if--'' i,i;ii.,, . ,...1: ,;.;•-. ■" 

S,;iA . 'I'll: SikBii' 



:/:■; 



>] i; f { h : IK tji | ;t:H,\i,l;. '■;, | !-*- -''e.. 
"'"-"iJiiill'MliaJiiiiriri: 1 ■ : " ; ?^ti\ 
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Fig. 8-2. Partial rotation of shaded molecular models. 
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swing toward the observer as you look at the 
figures. 

This program is identical to Program 7 with 
the exception of lines 453 and 455. What these lines 
do is to print a dark pixel as the edge of the sphere is 
approached. That is, the likelihood that a pixel will 
be printed is greater as the pixel is closer to the 
circumference of the sphere; the probability is zero 
at the center and 100% at the edge. 

You could change the program to make some 
spheres darker than others, to make some spheres 
larger than others, or to alter the height and width 
of the image. You could also change the direction of 
rotation or rotate only part of the figure. 

USING THE VIDEO SCREEN EFFECTIVELY 

When using the video screen on a microcom- 
puter a crucial factor is speed. Hidden line al- 
gorithms are notorious for being slow-working 
"number crunchers." An effective video display 
should not bore the user while he is waiting for 
figures to appear on the screen. We will discuss 
uFieiiy some ways to circuiiivcnL uns prGGiCin. 

The Use of Machine Language 

BASIC is really not the best language to use if 
one wants to write a program using graphics real- 
time; machine-language is. Machine-language has 
the drawback of being very difficult to program. You 



can, however, solve this obstacle by using 
machine-language subroutines liberally througout a 
BASIC program. Simple but slow routines could be 
changed to machine-language and the rest could be 
left in BASIC. Every bit helps (no pun intended). 

Sprites 

Many newer microcomputers use sprites. 
Sprites are a group of pixels organized like a giant 
graphic character, but they can be easily moved 
about the entire screen, not simply from line to line 
as graphic characters can be. Their use greatly 
increases the speed of display. 

Sprites also have the advantage of being of 
ordered priority. This means that if parts of two 
sprites occupy the same area on the screen, the one 
with the greater priority will be displayed on top of 
the other one. Sprites can have colors as well. 

Other Techniques 

Other techniques to increase speed of display 



inCiuuo SCtling Up ui£ 



user is reading text at the start of a program or 
game; using the INKEY$ function or another 
keyboard scanning routine so that the computer can 
be computing while waiting for your response; re- 
ducing computation as much as possible; and saving 
figures and data in memory. 
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Abstract, Low-Resolution Art pro- 
gram, 108-113 
Animated graphics, types of, 131 
Animated Graphics program, 1 32, 1 33 
Architectural drawing, 87-93, 138-144 
Art, abstract, high-resolution, 113-130 
Art, computer, 4, 94-130 
Art, mathematically defined, 102 
Art, realistic, high-resolution, 102-108 
Art, realistic, low-resolution, 102 
Axonometric projection, 21 

B 

Bar graphs, 7-13 

C 

Cartesian coordinates, 13, 14 

Chessboard and Screen Dump pro- 
gram, 97-102 

Components, movable, 97-102 

Computer art, 94-1 30 

Computer art, computer-generated, 
95 

Computer art, handmade method, 
94,95 

Computer art, types of, 94, 95 

Computer graphics, varieties of, 2-6 



Definitions, mathematical, 2 
Diagrams, 20 
Dot matrix displays, 78 
Drawing, architectural, 87-93, 
138-144 

E 

Equations, transformation, 21 , 22, 48, 
49,57 

G 

Games, arcade type, 131 
Games, programmable, 131 
Geometric shapes, plotting, 49-54 
Geometric shapes, rotated, 49-54 
Graph, definition of, 7 
Graphic motion, types of, 133 
Graphics, abstract, 6 
Graphics, advanced, 138-148 
Graphics, animated, 131-137 
Graphics, bit image, 22, 78 



Graphics, block, 22, 76 
Graphics, definition of, 1 
Graphics, future, 136, 137 
Graphics, high-resolution, 76 
Graphics, interactive, 6 
Graphics, low-resolution, 76 
Graphics, noninteractive, 6 
Graphics, realistic, 4,5 
Graphics, varieties of, 1 , 2 
Graphics characters, types, 76-78, 95 
Graphics characters, user-defined, 

76-78 
Graphs, bar, 7-13 
Graphs, perspective, 21, 22 
Graphs, three-dimensional, 21-47 

H 

Hidden lines and points, 22, 78 

High-Resolution, Space-Filling Ro- 
tating Molecular Model program, 
39-47 

High-Resolution, Space-Filling Ro- 
tating Molecular Model program 
(shaded), 145-148 

High-Resolution Abstract Art program 
(spiral), 126-130 

High-Resolution Abstract Art program 
(triangle), 123-126 

High-resolution graphics, definition, 
76 

High-Resolution Line Plotter program, 
54-57 

High-Resolution Plotter program, 
78-84 

High-Resolution Realistic Art pro- 
gram, 102-108 

High-Resolution Realistic Art (space 
shuttle) program, 95, 96 

High-Resolution Solid Figure of a 
House program, 138-144 

High-Resolution Space Shuttle Sim- 
ulation program, 69-75 

Histogram Graphing program (using 
graphic character), 11-13 

Histogram Graphing program (using 
H), 8, 9 

Histograms, 7-13 

Histograms, advantages of, 1 3 

Histograms, disadvantages of, 13 



I 

Images, still, 95-97 



Line Plotter program (high-resolution), 
54-57 

Line Plotter program (low-resolution), 
49-54 

Lines, hidden, 22, 78 

Lissajous Patterns program, 134-136 

Listing, High-Resolution Realistic Art 
program, 103-106 

Listings, Abstract, Low-Resolution Art 
program, 110-113 

Listings, Animated Graphics program, 
132 

Listings, Chessboard and Screen 
Dump program, 97-101 

Listings, High-Resolution Abstract Art 
program (spiral), 126-129 

Listings, High-Resolution Abstract Art 
program (triangle), 123-126 

Listings, High-Resolution Line Plotter 
program, 54-56 

Listings, High-Resolution Plotter pro- 
gram, 78-83 

Listings, High-Resolution Realistic Art 
program (space shuttle), 95, 96 

Listings, High-Resolution Solid Figure 
of a House program, 139-142 

Listings, High-Resolution, Space- 
Filling Rotating Molecular Model 
program, 40, 41 

Listings, High-Resolution, Space- 
Filling Rotating Molecular Model 
program, (shaded), 145-147 

Listings, High-Resolution Space 
Shuttle Simulation program, 
69-74 

Listings, Histogram Graphing program 
(using graphic character), 11-13 

Listings, Histogram Graphing program 
(using H), 8, 9 

Listings, Lissajous Patterns program, 
134 

Listings, Low-Resolution, Line Plotter, 
49-51 

Listings, Low-Resolution, Space- Fill- 
ing Rotating Molecular Model 
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program, 30-39 

Listings, Moire Patterns program, 113 

Listings, Natural Scene program, 93 

Listings, Three-Dimensional High- 
Resolution Function Plotter 
program, 85, 86 

Listings, Three-Dimensional Plotter 
program (high-resolution), 27, 
28 

Listings, Three Dimensional Plotter 
program (low-resolution), 24, 25 

Listings, Three-Dimensional Solid 
Plotter program, 88-91 

Listings, Two-Dimensional Plotter pro- 
gram, 15-17 

Low-Resolution, Space-Filling Rotat- 
ing Molecular Model program, 
30-39 

Low-resolution graphics, definition, 76 

Low-Resolution Line Plotter program, 
49-54 

Low-Resolution Space Shuttle Simu- 
lation program, 57-69 

M 

Machine-language, 148 

Mathematical definitions, 2 

Mathematically defined art, 102 

Models and simulations, 1 32 

Moire patterns, 6 

Moire Fauerns program, i io-123 

Molecular models, 21-47 

Molecular models, high-resolution, 
39-47 

Molecular models, low-resolution, 
30-39 

Motion methods of accomplishing, 
133, 134 

Motion achieved by printing and eras- 
ing, 133 

Motion achieved by using the Poke 
function, 133 

Motion achieved by using machine- 
language and the USR function, 
134 

N 
Natural Scene program, 93 



Oblique line projection, 21 



Patterns, moire, 6 
Perspective, definition of, 48 
Prespective line plotters, 49-57 
Perspective plotting, 48, 49 
Plot, definition of, 7 
Plots, polar coordinate, 20 
Plotters, large-scale, high-resolution, 
78-87 



Plotting, perspective, 48, 49 

Points, hidden, 22 

Poke function, 132 

Polar coordinate plots, 20 

Printers, dot matrix, 78 

Program explanations, Abstract, 
Low-Resolution Art program, 
113 

Program explanations, Animated 
Graphics, 133 

Program explanations, Chessboard 
and Screen Dump, 97 

Program explanations, High- 
Resolution Abstract Art (spiral), 
130 

Program explanations, High- 
Resolution Abstract Art 
(triangle), 126 

Program explanations, High- 
Resolution Line Plotter program, 
56,57 

Program explanations, High- 
Resolution Plotter program, 83, 
84 

Program explanations, High- 
Resolution Realistic Art, 108 

Program explanations, High- 
Resolution Solid Figure of a 
House, 144, 145 

Program explanations, High- 
Resoiuiiori, Space-Filling Rotat- 
ing Molecular Model program, 
41-47 

Program explanations, High- 
Resolution, Space-Filling Rotat- 
ing Molecular Model (shaded), 
145, 148 

Program explanations, High- 
Resolution Space Shuttle Simu- 
lation program, 74, 75 

Program explanations, Histogram 
Graphing program (using 
graphic character), 13 

Program explanations, Histogram 
Graphing program (using H), 
9-11 

Program explanations, Lissajous 
Patterns, 134-136 

Program explanations, Low- 



Program explanations, Low- 

o,,~„.!, ,*;^ o^~^ !t;m;^-t o^f^*.. 

ing Molecular Model program, 
32-39 

Program explanations, Low- 
Resolution Space Shuttle Simu- 
lation program, 63-69 

Program explanations, Moire Pat- 
terns, 113-123 

Program explanations, Natural Scene, 
93 



i Program explanations, Three- 
Dimensional High-Resolution 
Function Plotter, 86, 87 

Program explanations, Three- 
Dimensional Plotter program 
(low-resolution), 26, 27 

Program explanations, Three- 
Dimensional Plotter program 
(low-resolution), 28-30 

Program explanations, Three- 
Dimensional Solid Plotter, 91-93 

Program explanations, Two- 
Dimensional Plotter program, 
17-20 



Resolution, 22 

Rotating points about a defined axis, 

57 
Rotating points about an arbitrary axis, 

57 
Rotating points in space, 57 
Rotation of images, 22 



Shuttle Simulation program, 57-63 
Space shuttle simulation (high- 
resolution), 69-75 
Space shuttle simulation (low- 
resolution), 57-69 

P.nrltec 1 AP. 

Still components, 97-102 
Still images, 35-97 

T 

Transformation equations, 21, 22, 48, 
49, 57 

Three-dimensional graphs, 21-47 

Three-Dimensional High-Resolution 
Function Plotter program, 84-87 

Three-dimensional perspective, 48-75 

Three-Dimensional Plotter program 
(high-resolution), 27-30 

Three Dimensional Plotter program 
(low-resolution), 23-27 

Three-dimensional solid figure plot- 
ters, 87-93 

Three-Dimensional Solid Plotter pro- 
gram, 87-33 

Thresholding, 94, 95 

Two-dimensional graphic, 7-20 

Two-Dimensional Plotter program, 
15-17 

Two-dimensional plotting, purposes 
of, 20 



Video art, 4 

Video screen, effective use of, 148 



Z axis, 21, 22 
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(continued from front flap) 



You'll learn how to make histo- 
grams . - . Cartesian plots . . . 3-di- 
mensional figures that can be rotated 
on an axis . . . 'pictures" made by plot- 
ting mathematical functions . . . and 
more. Most programs are presented for 
both high- and low-resolution systems 
. . , and every one is clearly explained, 
ine by line. In addition to each program 
isting, you'll also find sample runs and 
program results. 

With the help of this handbook, 
you'll discover how to best use the 
unique graphic capabilities of your own 
micro for practical purposes . . . and for 
fun! You'll even learn how you can 
create your own animated graphics for 
arcade-type video games. Specific, 
easy-to-fo low how-to's are included for 
printing and erasing, using the POKE 
function, machine language, and the 
USR. 

Filled with drawings, diagrams, 
examples, and easy-to-run programs, 
this book will show you how you can 
use almost any microcomputer to create 
exciting and practical graphics for busi- 
ness or for play! 

Timothy O'Malley is a freelance 
technical writer with extensive pro- 
gramming experience. 



n outstanding 
programming handbook 
that shows you now to take full 

advantage of your micro's 
graphics capabilities! 




